Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Virtual Keys im FormKeyPress (?)


Calculon - Di 25.12.07 01:35
Titel: Virtual Keys im FormKeyPress (?)
N'abend!

Kann mir einer erklären, warum die virtual keys im OnKeyPress-Ereigniss der Form nicht so richtig wollen?

Bsp.:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // geht nicht:
  if key = char(VK_LEFT) then ShowMessage('Links');
  // geht:
  if key = char(VK_ESCAPE) then ShowMessage('Escape');
end;

Bräuchte gerade die Cursor-Tasten, aber es will einfach nicht...

[EDIT]Hat sich erledigt OnKeyPress braucht wohl echte ASCII-Werte und unterstützt keine virtuellen Keys; anders OnKeyDown[/EDIT]

Gruß

Calculon
--


Blawen - Di 25.12.07 02:03

Den genauen Grund kann ich Dir jetzt auch nicht nennen.

Sofern vom Programmhandling her möglich:
--> Nimm KeyUp statt KeyPress


hansa - Di 25.12.07 05:37

Da war doch mal was. :lupe: Ah ja : http://www.delphipraxis.net/topic15588_abfangen+von+funktionstasten.html