Focus springt bei Cursor-Tasten

[MaOfDe]

Hallöle,
hab ein kleines Problem...
Ich hab 'ne Klasse von TCustomControl abgeleitet. Bei der hab ich die Prozedur KeyDown overridet.
Diese soll beim Drücken der Cursor-Tastem etwas ausführen, doch leider springt dann der Focus auf die nächste Control und es tut sich janüschts. Als Alternative verwende ich jetzt den Ziffernblock, aber darauf würde ein 0815-Anwender kaum kommen, funkt bis jetz aba super.

Grundschema:

Delphi-Quellcode:

TabStop:=True;
:
procedure TMeineKlasse.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited KeyDown(Key, Shift);
  :
  case Key of
    VK_LEFT  : Schritt_Links;   //funktioniert bei mir nicht
    VK_RIGHT : Schritt_Rechts;
    VK_UP    : Schritt_Hoch;
    VK_DOWN  : Schritt_Runter;  
  end;
  :
end;

Und hier die Frage an euch:
Wie schaffe ich das mithilfe der Cursortasten?!

Is bestimmt megaeinfach, nur ICH wurde von einer übernatürlichen Macht dazu auserkoren, den Wald vor lauter Bäumen nicht zu sehen :(.

[Christian Seehase]

Moin MaOfDe,

schau Dir dazu mal im PSDK die Message WM_GETDLGCODE an.
Bei Deinem Problem in Verbindung mit DLGC_WANTARROWS.

Hier müsstest Du Beispiele dafür finden, wie man die Tabulatortaste abfängt (DLGC_WANTTAB)