Button beim drücken der ENTER-Taste ausführen

[Dejan Vu]

Zitat von Luckner:

Hi Dejan Vu,
das mit dem activeControlls hatte ich bereits rausgenommen. Es rührt sich wirklich nichts. Ich möchte nur mit der Return-Taste von Button zu Button hüpfen und eine onClick-Routine des angesprungenes Buttons auslösen.

Aber hüpfen sollte der Focus schon, nur clicken wird er nicht. Wieso auch, ist ja nicht programmiert

Versuche es mal mit der Methode 'TForm.FindNextControl'.

Delphi-Quellcode:

Procedure TMyForm.FormKeyDown (Sender : TObject; Var Key : Word);
Var
  nextCtrl : TControl;

Begin
  if Key <> VK_RETURN Then exit;
  nextCtrl = FindControl(ActiveControl, True, True, False); // mit dem 3.Bool  herumprobieren
  if nextCtrl is TButton then begin
    ActiveControl := nextCtrl;
    TButton(nextCtrl).Click(nil);
  end
end;

So oder ähnlich sollte das funktionieren. Kann sein, das der Button erst geklickt wird und dann wechselt der Fokus. Du darfst aber auch selbst ein wenig herumprobieren. Ich geh nämlich jetzt nach hause.

EDIT: Sooo, klar, warum das nicht geht: Der Button klaut der Form das ENTER, selbst, wenn in der Form KeyPreview:=True gesetzt ist. Da müsste man über die 'WndProc' gehen, dort die WM_KEYDOWN-Message abfangen und dann entsprechend verarbeiten, das sollte funktionieren.