Position de la souris dans une form

Bonjour,

J'ai besoin de connaitre précisément la position de la souris par rapport à ma form et non pas par rapport à l'écran.
Je pensais faire quleque chose comme ça :

Code:

---

1 2 3 4

P := Mouse.CursorPos ; edPosX.Text := IntToStr(P.X-form1.Left); edPosY.Text := IntToStr(P.Y-form1.Top);

---

Mais ça ne fonctionne pas car il faut soustraire au coordonnées la taille de la bordure de la fenêtre et cette taille est différente suivant le thème du bureau (XP, windows classique ..).

Avez-vous une idée ?

Bonsoir,

Les valeurs données (X et Y pour la souris) dans l'évènement OnMouseMove de la TForm ne te conviennent pas ?

@ + ;)

Salut!

Tu peux aussi utiliser les méthodes ScreenToClient et ClientToScreen pour convertir une position (type TPoint) absolue en position relative et inversement. Par exemple, pour obtenir la position relative de la souris sur la form1 :

Code:

---

1 2 3

P := Form1.ScreenToClient(Mouse.CursorPos); edPosX.Text := IntToStr(P.X); edPosY.Text := IntToStr(P.Y);

---

Et pour réobtenir la absolue de P :

Code:

---

P := Form1.ClientToScreen(P);

---

L'avantage de cette méthode, c'est que l'on peut choisir l'objet sur lequel on va se baser pour calculer la position. Par exemple, pour obtenir la position relative de la souris sur le Memo1 de Form1 :

Code:

---

P := Form1.Memo1.ScreenToClient(Mouse.CursorPos);

---

Plus de détails dans l'aide en ligne de Delphi (touche F1).
à+

Bonjour,

Pour sunChaser : j'ai bien utilisé l'événement onMouseMove mais le X et Y (comme tu dis) de la souris étaient référencé par rapport à l'écran

Pour Sub0 : merci :lol: