Enter drücken soll zwei versch. Sachen machen

[Hawkeye219]

Hallo Tobicaster,

wenn es bei der Enter-Taste als Auflöser bleibt, kannst du auch die Eigenschaft TButton.Default verwenden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ButtonStart.Default := True;  // kann auch im Objektinspektor
  ButtonStop.Default := False;  // eingestellt werden
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
  ButtonStart.Default := False;
  ShowMessage ('Start');
  ButtonStop.Default := True;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  ButtonStop.Default := False;
  ShowMessage ('Stop');
  ButtonStart.Default := True;
end;

Der Default-Button wird von Windows mit einem etwas dickeren Rand versehen. So erhält der Anwender auch eine optische Rückmeldung, welcher Button durch das Drücken der Enter-Taste betätigt wird.

Gruß Hawkeye

[Tobicaster]

Es klappt endlich, danke!
Danke für den Hinweis Chemiker, das wusste ich noch nicht.
Hab jetzt aber die Lösung von Hawkeye219 umgesetzt, da diese doch sehr simpel und praktisch ist.

Danke