动态生成子菜单？

Question

那就在主菜单激活时，动态加载用户子项吧。

Answer 1

加入菜单控件
procedure TForm1.Button1Click(Sender: TObject);
var
  MMenu, SubMenu, SubSubMenu: TMenuItem;
begin
  MMenu := TMenuItem.Create(self);
  MMenu.Caption := '菜单';
  SubMenu := TMenuItem.Create(MMenu);
  SubMenu.Caption := '选择用户';
  SubSubMenu := TMenuItem.Create(SubMenu);
  SubSubMenu.Caption := '用户1';
  MainMenu1.Items.Add(MMenu);
  MMenu.Add(SubMenu);
  SubMenu.Add(SubSubMenu);
end;