Frage Antwort

[Just Buisness]

wie gehts das wenn man etwas in ein edit fenster schreibt das das dann quasi beantwortet wird also frage antwort?

[DeddyH]

Wie genau hast Du Dir das gedacht?

[Just Buisness]

bsp

Label: Hallo wie heißt du ?
und dann schreibt man ins edit fenster

edit: hans

Label: Hallo hans........

[DeddyH]

Delphi-Quellcode:

var sAntwort: string;
begin
  sAntwort := EditAntwort.Text;
  LabelFrage.Caption := 'Hallo, ' + sAntwort;
end;

Mal als Schmalspurversion.

[Just Buisness]

geht nich kannst du das nich mal genauer erklähren?

[DeddyH]

Erklär mir erstmal "geht nich". EditAntwort soll der Name des Edits sein und LabelFrage der Name des Labels.

[Just Buisness]

also ich würd gern wissen mit was ich das machen soll Edit fenster?? Label???

[DeddyH]

Du selbst hast doch von einem Edit und einem Label gesprochen

[Sherlock]

1) ein neues Projekt erstellen.
2) auf das Formular ein TEdit ziehen
3) Das TEdit von Edit1 in AntwortEdit umbenennen (mit dem Objektinspektor)
4) auf das Formular ein TLabel ziehen
5) dieses TLabel von Label1 in FrageLabel umbenennen und oberhalb des AntwortEdit platzieren.
6) Caption von FrageLabel setzen. ZB Wie heissen Sie?
7) ein weiteres TLabel auf das Formular ziehen, diesmal unterhalb von AntwortEdit
8] das neue Label umbenennen zu GrussLabel, die Caption leeren.
9) Jetzt das FrageEdit anklicken und im Objektinspektor das Ereignis OnKeyDown doppelklicken
10)In der soeben entstandenen Procedure AntwortEditKeyDown folgendes eingeben:

Delphi-Quellcode:

if key = VK_ENTER then
begin
  GrussLabel.Caption := 'Hallo ' + AntwortEdit.Text;
  AntwortEdit.Text := '';
end;

11)Ausführen
12)Erkläre mir was passiert.

Sherlock