DevExpress 控件中设置分隔符

原文:DevExpress 控件中设置分隔符

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/ghs79/article/details/50234189

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

来源：https://www.cnblogs.com/lonelyxmas/p/11546560.html