Delphi/Lazarus: Récupérer la Position du Curseur par rapport au Form/Fenêtre

Avec la fonction GetCursorPos(), vous pouvez obtenir la position du curseur par rapport à l'écran. Voici une manière d'obtenir la position du curseur par rapport à un form (fenêtre):

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

Tout d’abord, nous utilisons GetCursorPos() pour enregistrer la position actuelle de la souris au point P. Après cela, nous convertissons les coordonnées de l’écran en coordonnées de formulaire de Form1 en utilisant ScreenToClient(). Enfin, nous affichons les coordonnées converties comme légende de notre fenêtre.