在Delphi的标准菜单上设置分隔符是一件很简单的事,无论是设计期还是运行期动态生。但是DEV控件却不好使用,下面简单说说如何使用。
1、设计期:右键店要设置分隔符的按钮,有‘begin a Group’,点一下。
2、运行期:dxBarLargeButton3.Links[0].BeginGroup := True; //增加分隔符。会在这个按钮前添加一条分隔线。
运行期动态生成的核心代码如下:
var
DXTab: TdxRibbonTab;
DxBar: TdxBar;
//Dxbtn: TdxBarButton;
Dxbtn: TdxBarItemLink;
DxTabGrp: TdxRibbonTabGroup;
begin
DXTab := dxRibbon1.Tabs.Add;
DXTab.Caption := tmpGroupStr;
DxBar := dxBarManager1.AddToolBar();
DxBar.Caption := tmpGroupStr;
DXTab.AddToolBar(DxBar);
Dxbtn := DxBar.ItemLinks.AddItem(TdxBarLargeButton);
Dxbtn.BeginGroup := True;
Dxbtn.Item.Caption := aCaption;
Dxbtn.Item.OnClick := aMenuClick;
Dxbtn.Item.ImageIndex := aImageIndex;
Dxbtn.Item.LargeImageIndex := aImageIndex;
end;