Enter drücken soll zwei versch. Sachen machen

[Chemiker]

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