Bonjour,
Je fais une création dynamique de composant avec une ToolBar.
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.
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;
Quelqu'un aurait une idée ?
Partager