dxBarManager运行时创建菜单

dxBarManager运行时创建菜单

procedure TForm2.cxButton1Click(Sender: TObject);
var
  item, item2: TdxBarSubItem;
  btn: TdxBarButton;
  tool: TdxBar;
begin
  //创建工具栏
  tool := dxBarManager1.AddToolBar;
  //主菜单
  item := dxBarManager1.AddSubItem;
  item.Caption := '一级菜单';
  tool.ItemLinks.Add.item := item;
  //二级菜单
  btn := dxBarManager1.AddButton;
  btn.Caption := '菜单项';
  item.ItemLinks.Add.item := btn;
  //三级菜单
  item2 := dxBarManager1.AddSubItem;
  item2.Caption := '二级菜单';
  item.ItemLinks.Add.Item := item2;
  btn := dxBarManager1.AddButton;
  btn.Caption := '菜单项';
  item2.ItemLinks.Add.item := btn;
end;