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