Ribbon
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;