dxribbon动态生成菜单

procedure TfrmMain.btn1Click(Sender: TObject);
var
ribbonTab: TdxRibbonTab;
ribbonTabGroup: TdxRibbonTabGroup;
btn: TdxBarButton;
ItemLink : TdxBarItemLink;
begin

// ribbon 是手拖的一个 dxribbon, 这里生成一个选项页
ribbonTab:= ribbon.Tabs.Insert(0);

 

ribbonTabGroup:= ribbonTab.Groups.Add;

//bar  =   barmanage
ribbonTabGroup.ToolBar:= bar.AddToolBar(True,False);
ribbonTabGroup.Caption:= '';

//下面是一个btn生成的代码
btn:= TdxBarButton.Create(Self);
ItemLink := ribbonTabGroup.ToolBar.ItemLinks.Add;
ItemLink.Item := btn;

btn.Caption:= '123';

end;