Créer et ajouter un menuitem au moment de l'exécution

Creer et ajouter un menuitem au moment de l'execution

Creer et ajouter un menuitem au moment de l'execution : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour creer et ajouter un menuitem au moment de l'execution ?
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
private
& nbsp & nbsp procedure MenuClick(Sender: TObject)
...
NewMenu := TMenuItem.Create(nil) // Auto n'est pas necessaire
& nbsp & nbsp avec NewMenu ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Caption := '& Test'
& ! & ! & ! & nbsp OnClick := MenuClick //
& nbsp & nbsp fin
& nbsp & nbsp MainMenu1.Elements.Ajouter(NewMenu) // Nouveau menu Principal
& nbsp & nbsp MainMenu1.Items[0].Ajouter(NewMenu) // New menuitem
NewItem
Saut de ligne
MewMenu
NewPopupMenu
NewSubMenu
MainMenu1.Elements.Ajouter(NewItem(' & Test', 0, True, True, neant, 1101, '))
& nbsp & nbsp MainMenu1.Items[0].Ajouter(NewSubMenu(' & Test', 0, 'AName2',
& ! & ! & ! & nbsp [NewItem(' & Test1', 0, True, True, nil, 0, '),

& ! & ! & ! & nbsp NewItem(' & Test2', 0, True, True, nil, 0, ')]))
& nbsp & nbsp MainMenu1.Items[0].Ajouter(Saut de ligne)
& nbsp & nbsp avec NewPopupMenu(self, 'ole', paleft, true,
& ! & ! & ! & nbsp NewItem(' & Test1', 0, True, True, nil, 0, '),
& ! & ! & ! & nbsp NewItem(' & Test2', 0, True, True, nil, 0, ')]) ne
& ! & ! & ! & nbsp Popup(10, 10)