ExpressBars控件组具体怎么用? (100分)

  • 主题发起人 主题发起人 book523
  • 开始时间 开始时间
B

book523

Unregistered / Unconfirmed
GUEST, unregistred user!
我用dxbarmanager设计菜单时怎么不管用?,加上去的菜单根本没有显示,在编码中
怎么动态加菜单?还有工具栏按钮设计时怎么加?在编码中怎么动态加按钮?
 
对的这个的确开始让人摸不着头脑,也是人家告诉我的,
你双击dxBarManager,到command那一页,将你做的东西拖到外面那个toolbar中,你会有惊喜
发现.
 
不错,我试了一下果然如此,但是如果要在编码中增加吗?
 
好像要新建一个菜单项时拖不过去啊,这时该怎么办呢?
 
我总觉得这东东太强大了,虽然生成的执行代码也挺吓人。

就是不兼容不好,例如我要设置某个控件的popupmenu,用它的就不行了。
 
为什么不能拖过去?你Add的必须是subItem
在组织菜单的时候一定要组分清楚,主要是为了理解方便,.
编码增加我也没试过,一起努力吧
 
有兴趣的话可以看看《 第三方控件使用大全II》里面有比较详细的说明,但很贵,好像98
大洋,意义不大
 
设置某个控件的popupmenu,用它的就不行了
当然行的,老大!只查一步就做到了:)
 
动态生成的话,动态生成对象然后插入菜单项中。
这套控件慢慢用才能有体会。
 
查到一个例子,大家看看:
procedure TMainForm.btnCustomColorClick(Sender: TObject);
var
cbColor: TdxBarColorCombo;
begin
cbColor := TdxBarColorCombo(TdxBarButton(Sender).Tag);
with TColorDialog.Create(Self) do

begin
Color := cbColor.Color;
if Execute then
cbColor.Color := Color;
Free;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
cbColor: TdxBarColorCombo;
btnCustomColor: TdxBarButton;
begin
cbColor := TdxBarColorCombo.Create(Self);
with cbColor do
begin
Caption := 'Color:';
Color := clAqua;
end;

btnCustomColor := TdxBarButton.Create(Self);

with btnCustomColor do
begin
Caption := '...';
Hint := 'Click to select custom color';
PaintStyle := psCaption;
Tag := Integer(cbColor);
OnClick := btnCustomColorClick;
end;

// Adds an item to a sub menu
siFormat.ItemLinks.Add.Item := cbColor;
// Adds an item to a toolbar
with dxBarManager.Bars[2], ItemLinks do
begin
LockUpdate := True;
with Add do

begin
Item := cbColor;
Index := 0;
BringToTopInRecentList;
end;
with Add do
begin
Item := btnCustomColor;
Index := 1;
BringToTopInRecentList;
end;
LockUpdate := False;
end;
end;
这样是可以动态生成的,关键要用到ItemLinks来关联
 
好象只有下面那一段是解决你提出的问题的.
 
是啊,下面一段就是动态加菜单和工具栏按钮的
 
多人接受答案了。
 
后退
顶部