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 ?