Smiley Über das formular bewegen

[Nils1984]

hi
ich würde gerne eine image über das formular bewegen, wenn es an den seiten anstösst, soll der smiley (das Image) in eine andere richtung weiter "fliegen"
wie kann ich sowas machen??

MfG

Nils

[Luckie]

TTimer. Und TImage beitzt die Eigenaschaften Left und Top. Mit ein bischen Nachdenken sollte dir jetzt selber was einfallen.

[Daniel B]

http://www.delphipraxis.net/internal...ect.php?t=2886

[czapie]

Du solltest vielleicht nochmal in der Delphihilfe
nach ".bringtofront" nachlesen.
Czapie.

[Nils1984]

danke für die schnelle hilfe, hab es etwas anders gelöst:

Delphi-Quellcode:

Function TSmileyjagd.SmileyXPosition :Integer;
Begin
  Randomize;
  SmileyXPosition := Random(650);
end;

Function TSmileyjagd.SmileyYPosition :Integer;
Begin
  Randomize;
  SmileyYPosition := Random(550);
end;

Procedure tSmileyJagd.SmileysBewegen;
begin
  ImSmiley1.Left := SmileyXPosition;
  ImSmiley1.Top  := SmileyYPosition;
  ImSmiley2.Left := SmileyXPosition;
  ImSmiley2.Top  := SmileyYPosition;
  ImSmiley3.Left := SmileyXPosition;
  ImSmiley3.Top  := SmileyYPosition;
  ImSmiley4.Left := SmileyXPosition;
  ImSmiley4.Top  := SmileyYPosition;
  ImSmiley5.Left := SmileyXPosition;
  ImSmiley5.Top  := SmileyYPosition;
  ImSmiley6.Left := SmileyXPosition;
  ImSmiley6.Top  := SmileyYPosition;
  ImSmiley7.Left := SmileyXPosition;
  ImSmiley7.Top  := SmileyYPosition;
  ImSmiley8.Left := SmileyXPosition;
  ImSmiley8.Top  := SmileyYPosition;
  ImSmiley9.Left := SmileyXPosition;
  ImSmiley9.Top  := SmileyYPosition;
  ImSmiley10.Left := SmileyXPosition;
  ImSmiley10.Top  := SmileyYPosition;
End;

is zwar n bissern umständlich aber es läuft :-D