Discussion :

[planetevoyage]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Sunchaser]

Bonsoir,

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

@ +

[Sub0]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[planetevoyage]

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