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;