Discussion :

[sp2308]

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

[philnext]

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é...

[Nono40]

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.

[sp2308]

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 ?

[philnext]

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 ?

[sp2308]

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é..

[Cl@udius]

Salut

Je dois utiliser Tapplicationevent ?

Non. Rien a voir.

Je ne vois pas comment creer un evenement qui ne soit pas dans la liste.

Lorsque tu sélectionnes un TToolButton, les évènements OnMouseEnter et OnMouseLeave ne sont pas présents dans l'inspecteur d'objets ?
Quelle est ta version de Delphi ?

@+

[Dr.Who]

attention : pour le transtypage des "sender" dans les gestionnaires d'evenements il est recommendé d'utiliser le mots AS plutôt qu'un transtypage explicite :

Code :

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

(sender AS TButton)

plutot que

Code :

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

TButton(Sender)

[sp2308]

Salut


Non. Rien a voir.


Lorsque tu sélectionnes un TToolButton, les évènements OnMouseEnter et OnMouseLeave ne sont pas présents dans l'inspecteur d'objets ?
Quelle est ta version de Delphi ?

@+

Oui effectivement ils sont presents. C est d ailleurs ces evenements que j utilise mais ce que je souhaitais faire c est justement eviter de les utiliser et faire une procedure commune à tous les boutons avec ces evenements sur la toolbar qui donnait le numero du bouton.

J etais à la recheche d une sorte de propriete toolbarbutton.index ...

j utilise d2007

[popo]

Il y'a une méthode toute simple

Code :

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

1
2
for i := 0 to MaToolBAr.ButtonCount - 1 do
    MaToolBar.Button[i].OnMouseOver := OnMesBoutonsMouseOver;

Bien sur il faut avoir déclaré la procedure OnMesBoutonsMouseOver

Et dans la procedure tu récupère le Tag comme ceci

Code :

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

UnTag := (Sender as TButton).Tag;

[sp2308]

merci, cette fois c est clair