Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Une même action MouseLeave pour tous les Bts d une toolbar
Bonjour
J ai une toolbar sur un form.
J ai un tableau de string qui correspond au texte que j affiche sur un label en fonction du bouton.L index du tableau est identique à celui des boutons.
J aimerais savoir s il est possible de reuperer l index du bouton 'OnMouseEnter' / onmouseleave pour affecter le texte[N°du bouton] / effacer le label dans une procedure unique à tous les boutons de la toolbar.
J ai bien cherché une propriete du style index mais je n ai rien trouvé....
Merci pour votre aide
Je ne suis pas sûr d'avoir compris mais il suffit de mettre ta valeur 'index' dans le Tag de chaque bouton concerné. Tu récupère ce Tag avec le Sender de ton event (car le sender est le bouton si j'ai bien compris) et le tour est joué...
Une méthode que j'utilise de temps en temps : mettre dans Tag la valeur de l'index. Dans l'evènement un TComponent(Sender).Tag te donnera la bonne valeur.
Merci mais je suis désolé, j ai pas tout compris.
Pour le tag sur chaque bouton ok.
Mais pour le recuperer...pb
l' evenement, c est le fait d entre/sortir d un bouton non ? Donc je dois faire une procedure pour chaque bouton alors ?
Je pensais qu il y avait un moyen de recuperer la valeur du bouton survolé/quitté et de ce faire faire une procedure unique mais je crois que j ai pas tout saisi..
Auriez vous un exemple s il vous plait ?
En fait tu crées un event pour le 1er bouton et pour les suivants tu pointes systématiquement sur cet event.
Dans le code de cet event tu récupère le tag du bouton qui t'as envoyé l'event avec :
TButton(sender).tag
C'est plus clair ?
en theorie, oui c est clair mais en pratique non.
Je dois utiliser Tapplicationevent ?
Je ne vois pas comment creer un evenement qui ne soit pas dans la liste.
Peut etre une action d une action liste ...
Je melange peut etre tout mais là je suis depassé..
Salut
Non. Rien a voir.Envoyé par sp2308
Lorsque tu sélectionnes un TToolButton, les évènements OnMouseEnter et OnMouseLeave ne sont pas présents dans l'inspecteur d'objets ?Je ne vois pas comment creer un evenement qui ne soit pas dans la liste.
Quelle est ta version de Delphi ?
@+
Répondre avec citation
Partager