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