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]