"Animation"

[Sh4d0w]

Moin!
Eine Frage:
Und zwar habe ich eine Imagekomponente auf meiner Form, wenn ich nun irgendwo auf die Form klicke, soll sich diese Komponente dort hin "bewegen", also nicht sofort da sein, sondern sich bewegen wie eine Animation...
Ich bekomme das nur so hin, dass die Komponente sofort da ist, wenn ich irgendwo auf die Form klicke. Hat irgendjemand vllt. eine Idee, wie sich die Komponente nur schritt für schritt dorthin "bewegt"?

Dankeschön!

Greetz,
Sh4d0w

[Leuchtturm]

Du könntest dieses Schrittweise mit einem Timer machen

[Sh4d0w]

Kannst du das vllt. noch näher beschreiben? Wie denn schrittweise?

[jakobwenzel]

Du berechnest den Abstand zwischen Start und Endpunkt (jeweils für x und y), teilst den Wert durch die Anzahl Einzelschritte und addierst diesen Wert in OnTimer.

[Sh4d0w]

hui, hört sich kompliziert an...naja, ich versuchs mal. Dankeschön!

[agm65]

nein ist ganz einfach, ich würde dir raten du nimmst ein animiertes bild (jedi anigif) und dann einfach im timer zB.
i := i + 1 (timer interval 200)

und dann halt anigif.left := i

genauso mit .top und ende = deine position

dann läufts :)

[Sh4d0w]

Zitat:

Zitat von agm65

nein ist ganz einfach, ich würde dir raten du nimmst ein animiertes bild (jedi anigif) und dann einfach im timer zB.
i := i + 1 (timer interval 200)

und dann halt anigif.left := i

genauso mit .top und ende = deine position

dann läufts :)

Es läuft halt...nur wie sag ich ihm, dass er nur dahin laufen soll, wo ich hinklicke?

[Klaus01]

Du hast die Koordinaten wo du hingeklickt hast und auch die Koordinaten des Images.
Aus diesen Koordinaten kannst Du eine imaginäre Linie basteln

x1,y1 -> xm,ym

Die wanderst Du dann entlang.

Grüße
Klaus

[Sh4d0w]

Kannst du das vllt. noch erklären? Wie bastelt man denn so eine Linie?

[agm65]

die linie bastelt man nicht, die stellst du dir vor :)

schau mal du hast dein bild sagen wir auf top / left := 0

dann ermittelst du die mouse koordinaten beim klick zb so:

Delphi-Quellcode:

var
x,y: integer;

x := Mouse.CursorPos.X;
y := Mouse.CursorPos.Y;

und dann hast du ja eine "direkte" linie zwischen 0/0 und x/y ..

und dann halt top & left im verhältnis dahin wandern lassen