bewegen von zwei shapes (ein "Pong"-Nachbau)

[Harfi]

Hi,

ich möchte ein Spiel programieren, das wohl am besten mit dem allbekannten "Pong" zu erklären ist. Die beiden Spielblöcke sollen über die tastatur gesteuert werden. Soweit sieht das auch alles ganz gut aus, doch so bald ein Block bewegt wird, ist die Tasteneingabe, zur Steuerung des zweiten,(das Program nimmt also nur eine taste an) gesperrt. Wie kann ich das verhindern?

mit dem folgenden Quelltextteil steuer ich die Blöcke.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;

if key= 'q' then s_l.top:=s_l.top-10;
if key= 'a' then s_l.top:=s_l.top+10;

if key= 'ü' then s_r.top:=s_r.top-10;
if key= 'ä' then s_r.top:=s_r.top+10;

...

[Noedel]

Delphi-Quellcode:

GetAnsiKeyState

[Fussball-Robby]

Zitat:

Zitat von Noedel

Delphi-Quellcode:

GetAnsiKeyState

Du meinst wohl GetAsyncKeyState() :zwinker: