Discussion :

[HobbitBleu]

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 :

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

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;

[DOLPat®]

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 :

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

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;