Discussion :

[PimpW]

Bonjours ,
jme demandais si il est possible de pouvoir afficher les coordonnées du pointeur de la souris quand on click sur la form.

Par exemple

On Form1.click

Label1.caption:=position du curseur TOP
Label2.caption:=position du curseur LEFT

ou quelque chose de semblable..

Merci a l`avance !!

[poly128]

Pour savoir ou l'on click:

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
  label1.caption:=inttostr(x);
  label2.Caption:=inttostr(y);
end;

Pour savoir ou le pointeur est:

Code :

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

1
2
3
4
5
6
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.caption:=inttostr(x);
  label2.Caption:=inttostr(y);
end;