Hi
die Cursor-Tasten und einige andere Tasten (STRG, SHIFT...) kannst du mit OnKeyPress überhaupt nicht abfangen, weil sie eben kein Zeichen liefern.
Dafür müsstest du OnKeyDown bzw. OnKeyUp verwenden und dort bekommst du den Tastencode geliefert. Wenn du anstelle der Codes die entsprechenden Konstanten verwendest, kann man's noch leichter lesen:
Quelltext
1: 2: 3: 4: 5:
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_LEFT then ShowMessage('Cursor Left'); end; |
Gruss Lothar
Der BH ist für die Brust, der Plan ist für'n Ar...