Bonjour à tou(te)s
Voilà, je voudrais réinitialiser le texte du hint lorsque la souris se déplace au-dessus du contrôle, sans le quitter...
Or, il semble que la propriété hint est mise à jour au moment de "l'entrée" de la souris au-dessus du contrôle, et qu'aucune mise à jour n'est possible tant que la souris n'a pas "quitté" le contrôle puis y est revenue.
Je ne sais pas si je me fais bien comprendre
Autrement dit, j'ai écrit un code qui modifie le hint en fonction des coordonnées de la souris:
Or, son déplacement ne produit rien. Il faut d'abord "quitter" le contrôle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure Tpal.carteMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var c:integer; distance:integer; begin xs:=x;ys:=y; for c:=1 to 102 do if sqrt(power(xs-ville[c].X,2)+power(ys-ville[c].Y,2))<distance then begin distance:=trunc(sqrt(power(xs-ville[c].X,2)+power(ys-ville[c].Y,2))); queldep:=c;end; pal.carte.Hint:=nomdep[queldep]; end;
Si qqn peut m'aider
Merci
Partager