Discussion :

[avogadro]

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

[avogadro]

personne ne sait?

[tatareau]

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

[avogadro]

c'est un tpopupmenu

[Lung]

c'est un tpopupmenu

Marche pareil, je crois.

[avogadro]

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

[tatareau]

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

Code :

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

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

[avogadro]

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

[Cl@udius]

Salut,

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

Code :

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

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;

@+

[Bruno@Chrysis]

sinon tu peux utiliser aussi :

Code :

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

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

Bruno.