动态添加DevExpressBar中的菜单
来源:互联网 发布:php跳转到指定html页面 编辑:程序博客网 时间:2024/06/07 01:37
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsdxBarPainter, dxBar,
cxLookAndFeels, dxSkinsForm, cxClasses;
type
TForm1 = class(TForm)
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
dxBarManager1Bar2: TdxBar;
dxBarSubItem1: TdxBarSubItem;
dxBarButton1: TdxBarButton;
siModual: TdxBarSubItem;
dxBarButton2: TdxBarButton;
dxBarEdit1: TdxBarEdit;
procedure dxBarButton1Click(Sender: TObject);
procedure dxBarButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure myclick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.dxBarButton1Click(Sender: TObject);
begin
application.Terminate ;
end;
procedure TForm1.dxBarButton2Click(Sender: TObject);
var
btnCustomColor: TdxBarButton;
begin
btnCustomColor := TdxBarButton.Create(Self);
with btnCustomColor do
begin
Caption := 'RunTime Add';
Hint := 'Click to select custom color';
Description := ClassName;
PaintStyle := psCaption;
OnClick := myclick;
self.Caption := btnCustomColor.Name;
end;
// siModual.ItemLinks.Add.Item := btnCustomColor; //此语句等同于如下语句
TdxBarSubItem(dxBarManager1.GetItemByName('siModual')).ItemLinks.Add.Item := btnCustomColor ;
end;
procedure TForm1.myclick(Sender: TObject);
begin
caption := (Sender as TdxBarButton).Name + IntToStr((Sender as TdxBarButton).Index);
end;
end.
注:部分代码来源于DevExpress的帮助。
- 动态添加DevExpressBar中的菜单
- C++ MFC中的CMenu---动态添加菜单/菜单项
- MFC中的CMenu---如何动态添加菜单/菜单项、子菜单、右键菜单
- MFC中的CMenu---如何动态添加菜单/菜单项、子菜单、右键菜单
- MFC中的CMenu---如何动态添加菜单/菜单项、子菜单、右键菜单 .
- MFC中的CMenu---如何动态添加菜单/菜单项、子菜单、右键菜单
- MFC中的CMenu---如何动态添加菜单/菜单项、子菜单、右键菜单
- 动态添加菜单
- Delphi动态添加菜单
- 动态添加菜单
- 动态添加菜单
- 动态添加菜单项
- MFC 添加动态菜单
- mtk动态添加菜单
- RCP动态菜单添加
- 动态添加菜单<ul>
- 动态添加菜单<ul>
- 动态添加菜单项
- .NET求职笔试大全
- Url Rewrite Filter 使用全攻略
- 什么是JavaBean
- 亦思专业验证码识别系统[推荐]
- Web 架构师的能力收藏
- 动态添加DevExpressBar中的菜单
- 20个PHP常用类库
- java.lang.OutOfMemoryError: PermGen space 内存溢出
- 一个整数表示成多个连续的整数之和
- SetupBuilder Professional 1.50sc注册方法
- 用正则表达式提取URL里的域名,URI和参数
- 关于去耦电容和旁路电容
- 日期验证
- 软件还是硬件?