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
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."