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
.