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**

GetAnsiKeyState

**Fussball-Robby**

Zitat von Noedel:

GetAnsiKeyState

Du meinst wohl Delphi-Referenz durchsuchen

GetAsyncKeyState()

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

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

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

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

Forumregeln

Noedel Registriert seit: 7. Aug 2008 204 Beiträge Delphi 7 Professional	#2 Re: bewegen von zwei shapes (ein "Pong"-Nachbau) 1. Feb 2009, 18:54 GetAnsiKeyState -"Was studierst du eigentlich? Nerdologie?" -"Informatik..." -"Wusst ich´s doch!"
	Zitat

Fussball-Robby Registriert seit: 22. Okt 2007 Ort: Nähe Köln 1.063 Beiträge Delphi 7 Enterprise	#3 Re: bewegen von zwei shapes (ein "Pong"-Nachbau) 1. Feb 2009, 18:57 Zitat von Noedel: GetAnsiKeyState Du meinst wohl GetAsyncKeyState() Robert L. Der folgende Satz ist richtig! Der vorherige Satz ist falsch! Paradox
	Zitat