Zitat von
fui-tak:
Hier erhälst du die Koordinaten auf dem Bildschirm
Er möchte sie aber relativ zu seiner Form
und da müßte er dann ebenfalls ScreenToClient nutzen, um es umzuwandeln.
Ich würde hier aber ClientToParent verwenden ... alles Andere wären nur unnötige Umwege.
Delphi-Quellcode:
// Image1 leitet seinen Aufruf an Form1 weiter
Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var P: TPoint;
Begin
P.X := X;
P.Y := Y;
P := ClientToParent(P, Form1);
Form1.OnMouseMove(Sender, Shift, P.X, P.Y)
End;