Delphi-PRAXiS - Delphi GetAsyncKeyState

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi GetAsyncKeyState - Mehrere Tasten erkennen (https://www.delphipraxis.net/108184-getasynckeystate-mehrere-tasten-erkennen.html)

Neutral General

8. Feb 2008 14:39

GetAsyncKeyState - Mehrere Tasten erkennen

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

8. Feb 2008 15:23

Re: GetAsyncKeyState - Mehrere Tasten erkennen

MSDN - GetKeyboardState

Neutral General

8. Feb 2008 15:38

Re: GetAsyncKeyState - Mehrere Tasten erkennen

Ok danke :) :thumb:

Alle Zeitangaben in WEZ +1. Es ist jetzt 17:59 Uhr.