Discussion :

[Omeggg]

Bonjour,

Tout d'abord bravo pour le site sans qui je me serais perdu
plus d'une fois dans moult langages.

Je cherche ici, comme l'indique le titre, à récupérer les
coordonnées du pointeur souris, pour un TWinControl
donné.

Exemple : J'ai un panel "panel1", sur lequel s'affiche une image "img1".
Au moment du survol de l'image, je veux intercepter les
coordonnées du curseur par rapport au Panel et non par rapport à l'image.

Or l'évènement OnMouseMove de img1 me renvoie dans les X et Y
les coordonnées du pointeur par rapport à elle-même.
Quant à l'évènement OnMouseMove de Panel1, il ne s'active pas
quand je passe au-dessus de l'image, mais uniquement quand le
panel est directement visible.

Alors :
1) Est-ce normal que ce dernier évènement ne s'active pas malgré
le fait que Img1 ait pour parent Panel1 ?
2) Comment pourrais-je résoudre mon problème ?

Merci à vous !

Omeggg

[Archimède]

sers-toi peut-être de la propriété clientorigin de ton Timage dans l'événement onmousemove de celui-ci.
c'est du côté de cette propriété que tu vas trouver la solution...

[Archimède]

au premier coup d'oeil, vite fait ci-joint:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.caption:='('+inttostr(x+image1.clientorigin.x-panel1.ClientOrigin.x)+','+inttostr(y+image1.clientorigin.y-panel1.ClientOrigin.y)+')';
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.caption:='('+inttostr(x)+','+inttostr(y)+')';
end;

c'est fait rapidement, mais ça marche
a+

[Omeggg]

Il me semble que ClientOrigin m'indique plutôt la position
de l'image en pixels par rapport à l'écran tout entier,
c'est-à-dire en prenant pour origine le coin supérieur gauche
de l'écran.
Je vois mal comment cela pourrait m'être utile,
pourrais-tu me donner quelques précisions ?

Omeggg

[qi130]

Tu dois pouvoir utiliser :

Code :

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

1
2
3
4
 
var point:TPoint;
...
point:=Panel1.ScreenToClient(Mouse.CursorPos);

[Omeggg]

Bon je vais essayer tout ça, merci en tous cas.

[Omeggg]

Merci merci, ça marche avec la fonction proposée
par Qi130, c'est super ! Merci à tous,
pour votre promptitude en tous cas.

Omeggg