Bewegung

[TheAn00bis]

Ich formulier es mal praktischer.

Wenn du beispielsweise ein TImage
bewegen möchtestkannst du folgender-
maßen vorgehen:

Du erstellst einen Timer, aktivierst
ihn ("enabled:=true") und erhöhst
im OnTimer-Ereignis die Eigenschaft
"left" des TImage um 10.

Außerdem solltest du mittels if-
Abfragen überprüfen, ob das TImage
nicht die Grenzen des Formulars über-
schreitet.
Ist dies der Fall, dann erhöhst du
die Eigenschaft "left" einfach nicht
mehr, sondern veringerst sie um 10.

Wenn du zusätzlich Abbremsung oder
Beschleunigung haben möchtest,
könntest du die 1 mit einem
Abbrems- (<1)oder Beschleunigungs-
(>1) Faktor multiplizieren.
Da Die Positionen der Delphi-
Komponenten aber immer ganz-
zahlig sein müssten, würdest
du die Werte jetzt noch runden
müssen.

Edit: Der Faktor muss natürlich größer
oder kleiner 1 und nicht, wie ich ge-
schrieben hatte größer oder kleiner 0
sein.