SchleifenCode gibts sowas?

[alcaeus]

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