Suppression composant avec popup menu

Bonjour,

Je fais une création dynamique de composant avec une ToolBar.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.ToolButton2Click(Sender: TObject); begin inc(Nombre); SetLength(ListeFEF, Nombre+1); ListeMesCompos[Nombre] := TMonCompo.Create(Self); with ListeMesCompos[Nombre] do begin Parent := Self; PopupMenu := PopupMenu1; Name := 'Compo'+IntToStr(Nombre); end; end;

---

PopupMenu1 possède une item "Delete" avec laquelle j'aimerais effacer mon composant mais je n'arrive pas à savoir sur quel composant le clic a été fait.

Quelqu'un aurait une idée ?

j'ai trouvé ça dans l'aide de Delphi, ça correspond à ce que tu cherches?

TPopupMenu.PopupComponent

Code:

---

1 2 3 4 5 6 7 8 9 10

Désigne le dernier composant qui a affiché le menu surgissant en réponse à un clic du bouton droit de la souris.   property PopupComponent: TComponent;   Description   Consultez la propriété PopupComponent pour déterminer le composant qui est en train d'utiliser le menu surgissant. Si dans une application, plusieurs contrôles partagent le même menu surgissant, la propriété PopupComponent permet de déterminer celui qui a affiché le menu.   Affectez PopupComponent pour associer un contrôle au menu avant d'appeler la méthode Popup pour afficher le menu surgissant.

---

Citation:

---

Envoyé par blonde

j'ai trouvé ça dans l'aide de Delphi, ça correspond à ce que tu cherches?

TPopupMenu.PopupComponent

Code:

---

1 2 3 4 5 6 7 8 9 10

Désigne le dernier composant qui a affiché le menu surgissant en réponse à un clic du bouton droit de la souris.   property PopupComponent: TComponent;   Description   Consultez la propriété PopupComponent pour déterminer le composant qui est en train d'utiliser le menu surgissant. Si dans une application, plusieurs contrôles partagent le même menu surgissant, la propriété PopupComponent permet de déterminer celui qui a affiché le menu.   Affectez PopupComponent pour associer un contrôle au menu avant d'appeler la méthode Popup pour afficher le menu surgissant.

---

---

:king: Très bien vu !

J'ai pas pensé regarder les propriétés du popupmenu.

J'essayais de retrouvé le composant à partir du sender du clic -> item.

Merci bien !