hallo,
hab das problem soweit gelöst:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (button1.caption='Lauf') then begin Timer1.enabled:=true; button1.Caption:='Lauf stop' end
else if button1.caption='Lauf stop' then begin Timer1.enabled:=false;button1.caption:='Lauf' end
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.left:=image1.Left+10; Timer1.Interval:=400;
if image1.left >= 50 then begin Timer2.enabled:=true; Timer1.enabled:=false end
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
image1.top:=image1.Top+10; Timer2.Interval:=400;
if image1.Top = 50 then begin Timer3.enabled:=true; Timer2.enabled:=false end
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
image1.left:=image1.left-10; Timer3.Interval:=400;
if image1.Left <= 0 then begin Timer3.enabled:=false; Timer4.Enabled:=true end
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
image1.Top:=image1.Top-10; Timer3.Interval:=400;
if image1.Top = 0 then begin Timer4.Enabled:=false; Timer1.Enabled:=true end
end;
Wenn ich aber irgendwo anhalte und dann weiterlaufen lasse, bewegt er sich nicht auf derselben stelle weiter.
Kann mir da jemand bitte helfen?
Ich danke für eure Hilfe schonmal im vorraus .