Weiterlernen

[teodorfon]

Abend alle,wollte jetzt kein thread für mein problem aufmachen,das lernen geht schon ein wenig voran aber leider weiss nicht genau warum mein "loop" (hoff dass der begriff gut gewählt ist) nicht funktioniert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if shape1.Left>=0 then begin
timer1.Interval:=100;
shape1.Left:=shape1.Left+30;
if shape1.Left=150 then timer1.Enabled:=false;
if timer2.Enabled=false then timer1.Enabled:=true;  //geht nicht .____.
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if timer1.Enabled=false then begin
timer2.Interval:=100;
shape1.left:=shape1.Left-30;
if shape1.Left=0 then timer2.Enabled:=false;
end;
end;
end.

Wollte ein wenig mit den Shapes rumspielen...