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
Version imprimable
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 :)
Marche pareil, je crois.Citation:
Envoyé par avogadro
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:)
Bon Code;)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
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 :
Bruno.Code:
1
2
3 function NewItem( const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;