В Билдере у меня есть MainMenu, который имеет такой вид:

File
|
|
SubMenu --- SubSubMenu

Как программно добавлять менюшки в SubSubMenu?
Заранее спасибо!

>Как программно добавлять менюшки в SubSubMenu?

Почему бы воспользоваться банальным способом ?
(у меня Delphi, но это думаю не существенно)

Здравствуйте, Serjio, Вы писали:

>>Как программно добавлять менюшки в SubSubMenu?

S>Почему бы воспользоваться банальным способом ?
S>(у меня Delphi, но это думаю не существенно)

В твоем примере ты добавляешь подменю в меню, а мне нужно добавить ПодПодМеню в ПодМеню. Или я что не так понимаю?

> В твоем примере ты добавляешь подменю в меню,
> а мне нужно добавить ПодПодМеню в ПодМеню

а так ?

procedure TForm1.Button3Click(Sender: TObject);
var
   vMenuItem1 : TMenuItem;
   vMenuItem2 : TMenuItem;
begin
   vMenuItem1 := SubItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1';
   vMenuItem1.Add(vMenuItem2);
   vMenuItem1 := vMenuItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1';
   vMenuItem1.Add(vMenuItem2);
   vMenuItem1 := vMenuItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.1';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.2';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.3';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.4';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);
end;

что есть тоже самое, по сути