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.