Im OnKeyPress Ereignis Pfeiltasten abfragen

[Maximus]

Hallo,

Wie kann ich im OnKayPress Ereignis abfragen ob dies mit einer der Pfeiltasten ausgelöst wurde?

Delphi-Quellcode:

procedure TGLForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
 #37 : AngleY := AngleY + 2; //AngleY - Winkel für die Betrachtung in meiner Anwendung
 #39 : AngleY := AngleY - 2;
 end;
end;

Dies scheint nicht zu funktionieren ...

Hab ich eventuell die flaschen Werte für die Pfeiltasten?
(Die hab ich aus diesem Thread.

PS.: KeyPreview ist TRUE

MFG
Maximus

[alzaimar]

Geht nicht. Verwende OnKeyDown und die "Virtual Key Codes". In Windows.pas sind die Keycodes für die Cursortasten enthalten. Such mal nach VK_UP, VK_DOWN, VK_LEFT und VK_RIGHT.

[Maximus]

Mit OnKeyDown hab ich es auch schon hinbekommen. Doch es wäre geschickter wenn es auch mit OnKeyPress funktionieren würde ... naja dann muss ich es halt mit OnKeyDown machen.