Evénements pour la souris

Bonjour,

je débute un peu en pascal et j'aimerai savoir comment pourrais-je afficher les coordonnées de la souris quand elle est dans une certaine partie de la fenêtre (un Timage normalement).

J'ai lu des tutos, regarder des docs, j'ai vu des FormMouseMove, et d'autres choses mais je n'arrive pas bien à comprendre on les utilise.

Merci bien ;)

[edit]
J'ai réussi à faire marcher le FormeMouseMove, par contre j'ai essayé le FormMouseDown et j'ai un message d'erreur :

"project1.exe raised exception class "EreadError with message :
invalide value for property"

voilà mon code

Code:

---

1 2 3 4 5 6

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin memo1.clear; memo1.lines.add('X='+Inttostr(X)+' Y='+ Inttostr(Y)); end;

---

Hello,

il suffit de créer un événement On MouseMove à partir de ton TImage et d'utiliser les paramètres X et Y de cette fonction.

Code:

---

1 2 3 4

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Caption:= 'Coordonnée X: '+ IntToStr(x) + ', Coordonnée Y: '+ IntToStr(y); end;

---