Discussion :

[maredami]

Bonjour,

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

Code :

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

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 ?

[blonde]

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

TPopupMenu.PopupComponent

Code :

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

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.

[maredami]

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

TPopupMenu.PopupComponent

Code :

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

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.

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 !