SchleifenCode gibts sowas?

[Aenogym]

hallo und herzlich willkommen in der DP !

du musst erstmal eine variable definieren, die die richtung angibt. sie ist vom typ integer.
1 bedeutet dann nach links, -1 bedeutet ach rechts.
im OnTimer-Ereignis fragst du vor dem verschieben die aktuelle position der wolke ab. wenn sie am rand ist, dann wird die richtung umgedreht.

so sollte es funktionieren:

Delphi-Quellcode:

var direction: integer;

{...}

//onTimer-Ereignis:
begin
  if (wolke.left = 0) or (wolke.left = form1.clientwidth-wolke.width) then
    direction := direction * -1;

  wolke.left := wolke.left + 10*direction;
end;

edit: oh mein gott... dieser titel... "45 Jahre alte frau mit auto erschlagen!"
edit2: was soll das mit dem titel???

Aenogym