Button per Enter bestätigen?

[nixalsverdruss]

Hallo,
ich möchte, dass ein bestimmter Button auf dem Form "geklickt" wird wenn der User ENTER drückt. Wie geht das?
Danke schon mal
nixalsverdruss

[marius0702]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

if key=VK_RETURN then
button1.onclick(self);

end;

[nixalsverdruss]

Dankeschön!

[himitsu]

.Default des Buttons auf True setzen ginge auch noch, solange kein anderer Button den Fokus hat ^^

[taaktaak]

Kleine Ergänzung:

Soll die Enter-Taste nur wirksam sein, wenn die Taste den Focus hat, dann genügt ein simples Button1.Default:=true. Die vorstehend genannte Lösung führt immer zum ButtonClick - egal, welches andere Control gerade den Fokus hat.

// ah, zu langsam...

[himitsu]

Zitat:

Zitat von taaktaak

wenn die Taste den Focus hat,

// ah, zu langsam...

:tongue:

aber es wirkt (fast) immer (vorallem wenn kein anderer Button den Fokus hat, oder die aktive Komponenten das ENTER abfäng)


PS: .Cancel des Buttons ist das Gleiche, nur mit der ESC-Taste ^^