très simple : Les "Form" possède les évènement nécéssaires pour le faire.
L'évènement "OnMouseMove" de la Form1, founit directement les coordonées X et Y de la position de la souris dans la Form1 (données modifiés à chaque déplacement de la souris). Dans l'exemple ci-dessous, le code permet l'affichage des coordonnées dans Edit1.
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Edit1.Text := IntToStr(X) + ' ' + IntToStr(Y); end;
-----
L'évènement "OnMouseDown" de la Form1, founit directement les coordonées X et Y de la position de la souris dans Form1 (à chaque click gauche ou droit de la souris). Dans l'exemple ci-dessous, le code permet l'affichage des coordonnées dans Edit2.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Edit2.Text := IntToStr(X) + ' ' + IntToStr(Y); end;
tchao bazole
------------------------------- Réponse au message : -------------------------------
> je souhaiterais connaitre la maniere de transformer les coordonee ecran (click de souris dans une forme) en coordonnées par rapport à la partie client de la forme. > j'ai créé par canvas une grille dans une form et quand je click dans un des carres de la grille je souhaiterais connaitre la ligne et la colonne de la grille ou j'ai cliqué. > >
|