Hallo Tobicaster,
im Augenblick wir im Else – Zweig ein anderer Key abgefragt außer die Return – Taste.
Du musst die Abfrage umstellen:
Ich zeige das mal an einem Beispiel:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Edit1.Clear;
Edit2.Clear;
if key = #13 then
begin
key := #0;
if ReturnFlag then
begin
Edit1.Text:= 'TRUE';
ReturnFlag:= FALSE;
end
else
begin
Edit2.Text:= 'FLASE';
ReturnFlag:= TRUE;
end;
end;
end;
Außerdem würde ich im Form die Eigenschaft KeyPreview auf TRUE umstellen, damit alle Tastatureingaben zuerst vom Form verarbeitet werden.
Bis bald Chemiker