Discussion :

[Dauphin]

boujour,

je souhaite pouvoir afficher une info bulle (du genre de la petite fenetre jaune affichée par Hint) qui suive le curseur de la souris lorsque que je le deplace sur un TImage. Dans cette fenetre s'afficherait la position X et Y du curseur.

Je ne trouve pas de solution .... quelqu'un pourrait-il m'éclairer ?

[sony351]

moi j'ai la solution :-)

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Image1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  Point CoordHint;
 
  CoordHint.x = X;
  CoordHint.y= Y;
  Application->ActivateHint(CoordHint);
}

[Dauphin]

super sony, c'est la bonne idée.
Il faut d'abord corriger

Code :

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

Point CoordHint;

en

Code :

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

TPoint CoordHint;

Ensuite pour afficher le hint au bon endroit, il faut convertir le X, Y du TImage en X', Y' de la fenetre de l'application ....

Et y a plus qu'à écrire ce que l'on veux dans le Hint du TImage

Merci

[sony351]

ouai exacte escuses moi mais même ya encore mieux tu fais

Code :

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

1
2
 
Application->ActivateHint(CursorPos);

[Dauphin]

Super c'est nickel, suffit juste de préciser :

Code :

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

Application->ActivateHint(Mouse->CursorPos);