Sous menu Dynamique

Bonjour ,

Mon programme me permet de créer des options dynamique à partir d'un MainMenu existant.
Mais par contre je ne comprends pas comment créer un sous menu ( sous option >) dynamiquement , j'ai créé via l'éditeur un sous menu il n'y pas de différence avec une option
Code:

1 2 3 4 5 6 7 8 9 // création des options du menu dans ModuleA New_Item := TMenuItem.Create(Self); New_Item.Caption := 'Option 1'; ModuleA.Add(New_Item); // création Onclick New_Item.OnClick:= AppelMenu; New_Item.tag:=1;
Merci

Philippe

bonjour,

voici un bout de code qui ajoute une ligne à un menu existant. Cette nouvelle ligne a un sous menu :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  aMenu, aMenu1 : TMenuItem;
begin
  aMenu:= TMenuItem.Create( Self);
  aMenu.Caption := 'Option2';
  MainMenu1.Items[0].Add( aMenu);
  aMenu1 := TMenuItem.Create( Self);
  aMenu1.Caption := 'Sous Option1';
  aMenu.Add( amenu1);
end;

@++
Dany

Ca fonctionne parfaitement

Merci beaucoup pour ton aide

Philippe