DevExpress 控件中设置分隔符
2015-12-09 12:00
791 查看
在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;
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;
相关文章推荐
- Delphi实现http发送xml文件片段
- Delphi实现毫秒级别的倒计时实例代码
- Delphi7中Listview的常用功能汇总
- 插件管理框架 for Delphi(一)
- delphi中一个值得大家来考虑的DLL问题
- Delphi实现检测并枚举系统安装的打印机的方法
- delphi 正弦曲线图
- Delphi下OpenGL2d绘图之画四边形的方法
- Delphi实现木马文件传输代码实例
- delphi建立、读取、存贮INI文件的方法《三》
- Delphi控件ListView的属性及使用方法详解
- delphi制作wav文件的方法
- Delphi下OpenGL2d绘图之画点的方法
- Delphi下OpenGL2d绘图之初始化流程详解
- Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
- Delphi实现截屏存盘的方法
- Delphi实现碰撞球体完整实例代码
- delphi建立、读取、存贮INI文件的方法《二》
- Delphi解析FTP地址的方法
- Delphi实现读取系统时间与日期完整实例