Delphi/Lazarus: Maus-Position relativ zur Form/zum Fenster auslesen

Mit der Funktion GetCursorPos() können wir die Position der Maus bzw. des Cursors relativ zum Bildschirm bestimmen. Hier ist eine Möglichkeit, die Mausposition relativ zur Form beziehungsweise zum Fenster zu bestimmen:

var
  P: TPoint;
begin
  GetCursorPos(P);
  P := Form1.ScreenToClient(P);
  Form1.Caption := inttostr(P.X + ' ' + inttostr(P.Y));
end;

Wir benutzen zunächst GetCursorPos(), um die aktuellen Maus-Position in den Punkt P zu speichern. Danach rechnen wir die Bildschirm-Koordinaten mit ScreenToClient in Form-Koordinaten der Form1 um. Zuletzt geben wir die umgerechneten Koordinaten in der Fensterleiste (Caption) unserer Form aus.