Mouse absolute Position ermitteln!

[himitsu]

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;