OnKeyPress Denkfehler ?

[Nils_13]

Hi,

erstaunlich bei was für Kleinigkeiten man manchmal Probleme hat: Ich muss in OnKeyPress überprüfen, ob Pfeiltaste oben gedrückt wurde. Deshalb schaute ich kurz in die Windows.pas:

Delphi-Quellcode:

{$EXTERNALSYM VK_LEFT}
VK_LEFT = 37;
{$EXTERNALSYM VK_UP}
VK_UP = 38;
{$EXTERNALSYM VK_RIGHT}
VK_RIGHT = 39;
{$EXTERNALSYM VK_DOWN}
VK_DOWN = 40;

Dann müsste das nun doch so aussehen ? Es tut sich leider nichts.

Delphi-Quellcode:

procedure TRazor.KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #39 then
    ...
end;

[Looper]

muss da nicht

Delphi-Quellcode:

if (key = #38) then

stehen?

mfg Looper

[DeddyH]

Scheint mir auch so.

[Nils_13]

Ah, das kam weil ich es zum Testen mal auch noch mit rechts probiert habe und rechts ist #39. Auch Pfeiltaste-rechts kann man vergebens drücken ohne dass was passiert.

[bitsetter]

Hi,

VK_UP ist doch kein Zeichen IMHO müsste man dafür das Ereignis onKeyDown nehmen.

[Die Muhkuh]

Richtig,

den ein Char(#38) wäre ein & ;)

[Nils_13]

Hm, ich arbeite gerade mit OpenGL. Dann könnte ich doch bei OnKeyDown eine Boolean-Variable auf True setzen und im Render (=Idle) einfach prüfen ob die auf True steht und dementsprechend was machen, bei OnKeyUp setz ich es dann wieder auf False.

Danke!