Einen Punkt auf der Form zur Maus bewegen...

[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;