[PopupMenu] comment savoir qui le lance?

Bonjour,

j'ai un TjvArrowButton (un bouton avec une petite flèche à droite). La flèche declenche un PopupMenu. Comme je rempli dynamiquement le popup dinfo venant d'une tablen j'assigne aussi une procedure click au OnClick du PopupMenu.

Jusque là, cela fonctionne. mais j'ai 4 ArrowButton liés au même PopupMenu car il sont les mêmes. J'aimerais dans ma procedure click savoir quel ArrowButton a été clické...

Le Owner du PopupMenu, c'est le Form. Donc comment savoir sur quel arrow button j'ai clické? PopupComponent ne fonctionne pas (il est à nil)

Dans l'entête de la proc OnCLick, il n'y a pas un Sender?

Auquel cas :

Code:

---

if (sender as TjvArrowButton).name='ArrowButton1' then...

---

Non ?

Hélas, le sender est la form... :(

Citation:

---

Envoyé par eponette

Hélas, le sender est la form... :(

---

???? De quel clic tu parles ? Parce que si c'est le clic sur le menu, le sender est un TMenuItem

Oui. Mais dans les deux cas, je n'arrive pas à avoir une référence de l'objet ArrowButton pour savoir lequel des 4 je dois mettre à jour.

Pourquoi tu ne gère pas le clic sur le bouton directement ?

Citation:

---

Envoyé par MD Software

Pourquoi tu ne gère pas le clic sur le bouton directement ?

---

C'est cela que j'essaie de faire. Il y a un evénement OnDrop quand on click sur la flèche. Là, le sauve quel composant a généré l'événement. Je crois que cela fonctionne. Mais maintenant, j'ai un problème pour savoir sur quel menu je click (puisque programatiquement, je lie le même onclick à chque TMenuItem du PopupMenu. Est-ce que on peut faire ceci

PopupMenu.Items[PopupMenu.Items.Count -1].OnClick := TypeTelClick(sender, cation);

ou quelque-chose de similaire, pour pouvoir envoyer avec le onclick le libellé du menu?

Je comprend rien, puisque tu le sauves au moment du clic sur le bouton, pourquoi tu ne t'en sert pas lors du clic sur le menu

Désolé, je mélange deux choses. D'abord, je ne trouvais pas comment savoir qui était clické. Grace au ondrop, je peux sauver cela, donc mon premier problème est résolu...

Mais maintenant, puis que tous les MenuItem ont le même onclick, j'essaie de savoir comment avoir le caption de celui qui a été clické (il n'y a pas de IndexItem pour les popup menu...)

Est-ce plus clair :oops:

Utilise le sender !!

Code:

---

if (sender as TItemMenu).name='Item1' then...

---

Tu peux utiliser name, caption, ou mieux, tag.

:oops:

Merci

Je reprend ta première réflexion tu peut utiliser PopupMenu1.PopupCompoenent mais cette fois ci c'est dans les éléments du menus que tu décide quelle action faire en fonctions de quels button.
Tu pose tes bouttons tu leurs affectes tous le même popupmenu.
dans l'événement du click d'un items de ton popupmenu tu teste quel boutton a fait surgir le popupmenu :

Code:

---

1 2 3 4 5 6 7 8

/// Click sur un Item if TButton(PopupMenu1.PopupComponent).Caption = 'Boutton1' then begin end else if TButton(PopupMenu1.PopupComponent).Caption = 'Boutton2' then begin end

---

ou si tu les distingues par des tag ça sera mieux.