Thema: Delphi Zufalls-Bewegung

Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#10

Re: Zufalls-Bewegung

  Alt 19. Okt 2005, 23:36
pass auf...

du sagst in jedem ontimer nicht
Delphi-Quellcode:
image2.Top:=image2.Top+10;
image2.Left:=image2.left+10;
sondern

Delphi-Quellcode:
image2.Top:=image2.Top+(Random(3)-1)*10;
image2.Left:=image2.left+(Random(3)-1)*10;
Random(2) gibt 0, 1 oder 2 zurück...Random(2)-1 also -1,0 oder 1
also bewegt sich das Image nicht mehr nur nach unten, sondern nach unten, nach oben oder gar nicht
für rechts/links ist es analog.

im OnCreate der Form rufst du dann noch Randomize; auf um den Zufallgenerator zu initialisieren.
Fertig!
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat