Einen Punkt auf der Form zur Maus bewegen...

[turboPASCAL]

Moin,

Also es ist mir echt peinlich, aber ich bekomme es nicht hin.
Ich habe einen Punkt auf einer Form (bzw. Bitmap) nun möchte ich diesen Punkt in Richtung Maus bewegen die sich über der Form befindet. Damit ihr wisst was ich mein' hänge ich mal ein Beispiel an.
Das soll jetzt aber nicht so Sprunghaft wie im Beisiel funktionieren, sondern eher "gemütlich", aber nur wenn die Mouse über die Form kommt.

Kann mir jemand helfen ? (mit ein bissel Code wäre nett)

[edit=turboPASCAL]Anhang gelöscht.[/edit]

[himitsu]

Du errechnest einfach beim bewegen der Maus den Winkel, in dessen Richtung der Punkt wandern muß, damit er auf den Pfeil zugeht.
Und diesen Winkel nimmst du und weiß ihn dem Punkt zu (für die Bewegung).

[turboPASCAL]

Sorry, ich habe nur noch X,Y Plus und Minus im Kopf, habe mir mit Sqrt und Sin und Cos das Gehirn gemartert aber eine anständige Lösung kommt nicht.

Ich habe den Punkt X und Y sowie die akt. Direction also zB. dx = -1 und dy = 1 (Richtung nach Links unten), dazu kommt noch sie MausPos. (mx, my) auf dem Bitmap. Wie stelle iches an damit die Richtung auf die Maus zeigt ?

[himitsu]

Mit "Maus.X - Punkt.X" und "Maus.Y - Punkt.Y" hast du ja den Abstand und die Richtung zwischen den beiden Punkten (Punkt und Maus).
Daraus kannst du doch einen Winkel errechnen?

Und diesen Winkel nimmst du und berechnest damit die neue Bewegungsrichtung (dx und dy) für den Punkt.

[turboPASCAL]

Zitat von himitsu:

Daraus kannst du doch einen Winkel errechnen?

Nein, ich bekomme es nicht gebacken.

Wie stelle ich das an ? (mal für Dumme)

[himitsu]

Ich nehm gern ArcTan2 dafür ... erspart einem unnötiges rumhandtieren mit den inversen Sin/Cos-Funktionen
Winkel := ArcTan2(Y1 - Y2, X1 - X2); und mit den erhalten Winkel kannst du dann über Sin/Cos den neuen BewegungsVektor errechnen.

[turboPASCAL]

Danke für deine Hilfe.

Lösung 1

Delphi-Quellcode:

RichtungX := (MouseX-AktPosX) / sqrt( sqr(MouseX-AktPosX) + sqr(MouseY-AktPosY) ) * Schrittlänge;
RichtungY := (MouseY-AktPosY) / sqrt( sqr(MouseX-AktPosX) + sqr(MouseY-AktPosY) ) * Schrittlänge;

Lösung 2

Delphi-Quellcode:

Winkel := ArcTan2(MouseX-AktPosX, MouseY-AktPosY);
RichtungX := Sin(Winkel) * Schrittlänge;
RichtungY := Cos(Winkel) * Schrittlänge;