GetAsyncKeyState - Mehrere Tasten erkennen

[Neutral General]

Hi,

zur Verdeutlichung:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetAsyncKeyState(VK_UP) < 0 then
   Panel1.Color := clred
  else
    Panel1.Color := clbtnFace;

  if GetAsyncKeyState(VK_LEFT) < 0 then
   Panel2.Color := clred
  else
    Panel2.Color := clbtnFace;
end;

Man kann sich auf den Kopf stellen aber man schaft es nicht beide Panels per Tastendruck gleichzeitig einzufärben.
Wie kann man dieses Problem umgehen/beheben?

Gruß
Neutral General

[Flips]

MSDN - GetKeyboardState
CL

[Neutral General]

Ok danke :) :thumb: