Discussion :

[philippe30]

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 :

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

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

[skywaukers]

bonjour,

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

Code :

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

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

[philippe30]

Ca fonctionne parfaitement

Merci beaucoup pour ton aide

Philippe