动态生成菜单问题！急~~~~~

Question

如何动态的生成MainMenu的子菜单呢？比如我现在已有下面结构的菜单。文件
|--->打开
|--->保存
|--->历史文件现在我要在历史文件菜单下动态的再创建一级 叫"中国历史"的二级菜单变成这样
文件
|--->打开
|--->保存
|--->历史文件-->中国历史现在，我能找到"历史文件"这个Item MainMenu1.Items[0].Items[2];
如何建立 中国历史 子菜单呢？
Item MainMenu1.Items[0].Items[2].add 中， add要什么参数啊！？
请指教，在线等！

Answer 1

procedure TMainForm.AddWindowsMenu(MenuCap: string; bEnabled: boolean);
//动态生成菜单
var
  NewItem           : TMenuItem;
begin
  NewItem := TMenuItem.Create(Self);
  NewItem.Caption := MenuCap;
  NewItem.Enabled := bEnabled;
  MainForm.FMenu.Add(NewItem);
  NewItem.OnClick := AddMenuClick;
end;procedure TMainForm.AddMenuClick(Sender: TObject);
//动态菜单点击事件
begin
  with Sender as TMenuItem do
    begin
      ShowMessage(Caption);
    end;
end;

Answer 2

还是不知道怎么做。我已经有了一个菜单叫MainMenu1 ，并且有下面的 菜单了，现在要生成的是在
下级菜单下的二级菜单。
比如给 MainMenu1.Items[0].Items[3] 增加一个二级菜单。
兄弟再说说，谢谢了！

Answer 3

var MenuItem :TMenuItem;
MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := 'test';
MainMenu1.Items[0].Items[3].Add(MenuItem);