Hi WarGrave,
[quote="Wargrave"]
Delphi-Quellcode:
procedure TForm1.TimerTimer(Sender: TObject);
begin
if (Timer.enabled=true)
then begin
Wolke.Left:=Wolke.Left+10;
end
end;
Die if-Abfrage in deinem Code ist unsinnig, da das Timer-Ereignis nur ausgelöst wird, wenn Timer.Enabled auch true ist.
Nach dem Wolke.Left:=... brauchst du nur noch folgenden Code einfügen:
Delphi-Quellcode:
if Wolke.Left+Wolke.Width > Form1.ClientWidth then
Wolke.Left := 0;
Greetz
alcaeus