Ajouter des sous-menus a un menu

Bonjour,

j'aimerais en cliquant sur un bouton pouvoir ajouter des sous-menus au menu connecter1, les lignes a rajouter seront récupérées a l'aide de listbox1.items.text

auriez vous une idée??

merci

personne ne sait? 8O

Rajouter des sous menus dynamiquement par code à TMenuItem...Faut regarder les méthodes de TMenuItem -> F1 (methode Add...qqchose sans doute)
Bon Code ;)

c'est un tpopupmenu :)

Citation:

---

Envoyé par avogadro

c'est un tpopupmenu :)

---

Marche pareil, je crois.

erf je buche je buche, il y a bien add mais bon, je trouve pas là :/

Cela doit faire qqchose comme ça (tirée de l'aide Delphi :f1:)

Code:

---

1 2 3 4

NewItem := TMenuItem.Create(PopupMenu1); // crée le nouvel élément PopupMenu1.Items.Add(NewItem);// lui ajoute l'Item NewItem.Caption := 'Elément de menu Listbox' ; //ta valeur de listbox

---

Bon Code;)

malheureusement non, cela me génère trois erreurs de type, pas assez de paramètres originaux :/

Salut,

J'utilise régulièrement cette méthode:

Code:

---

1 2 3 4 5 6 7 8 9 10

var newItem: TMenuItem; begin newItem := TMenuItem.Create(Self); newItem.Action := MonAction; newItem.Caption := 'Nouvel élément'; newItem.ImageIndex := 0; monPopupMenu.Add(NewItem); end;

---

@+

sinon tu peux utiliser aussi :

Code:

---

1 2 3

function NewItem( const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;

---

Bruno.