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
wer gesund ist hat 1000 wünsche wer krank ist nur einen.