Registriert seit: 25. Jan 2008
26 Beiträge
|
26. Jan 2008, 15:39
ich hab jetzt:
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 Timer1.enabled:=false; button1.caption:='Lauf' end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.left:=image1.Left+10; Timer1.Interval:=1000;
if image1.Left >= 50 then begin image1.Top:=image1.top+10 end
else if image1.Top=50 then begin image1.Left:=image1.left-10 end
else if image1.left<= 50 then begin image1.top:=image1.top-10 end
else if image1.Top = 0 then begin image1.left:=image1.left+10 end
Das funktioniert leider nicht so wie es soll.
Kann mir jemand sagen was der Grund ?
danke im vorraus!
gruß crusor
|