problem bei onkeypress

[Surge0n]

hi leute,
ich habe vor kurzem ein spiel programmiert das euch wohl am besten unter dem namen pong bekannt ist!
es funktioniert eigentlich auch wunderbar doch ein problem ist bis jetzt geblieben:

sobald ich eine taste gedrückt habe um einen der balken zu bewegen sind die anderen blockiert und somit kann sich immer nur ein balken bewegen..

hier mein quelltext:

Delphi-Quellcode:

procedure TForm3.tasten(Sender: TObject; var Key: Char);
begin
 if key='w' then image1.Top:=image1.Top-10;
 if image1.Top<=(image4.Top+image4.Height) then image1.Top:=image1.Top+10;
 if key='x' then image1.Top:=image1.Top+10;
 if (image1.Top+image1.Height)>=image5.Top then image1.Top:=image1.Top-10;
 if key='ü' then image3.Top:=image3.top-10;
 if image3.Top<=(image4.Top+image4.Height) then image3.Top:=image3.Top+10;
 if key='-' then image3.Top:=image3.Top+10;
 if (image3.Top+image3.Height)>=image5.Top then image3.Top:=image3.Top-10;
end;

vielen dank im voraus


[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[Surge0n]

sorry^^ grad gemerkt das ichs in den falschen themenbereich gepostet hab ...geht das zu ändern oO

[Matze]

Hallo,

das geht mit GetKeyboardState: Beispiel.

Grüße, Matze