谁用过dxBar呀？

sailer_shi 2004-07-07 09:28:59

我在用dxBar做窗体的时候为什么总是在上面加不上东东呀（菜单和按钮什么都加不上）为什么？具体怎么做才能加上？

...全文

247 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sailer_shi 2004-07-07

打赏
举报

谢谢你了，问题解决

jacket008 2004-07-07

打赏
举报

刚刚试了一下，要在设计器里把工具安钮、菜单等用鼠标拖到窗体的Toolbars中

sailer_shi 2004-07-07

打赏
举报

jacket008(§优国优民§) 请说详细些好吗？我在设计器里面都添加好了，但是Form上面就是什么也不显示出来，郁闷！！！

jacket008 2004-07-07

打赏
举报

在dxBar的设计里要选定菜单或工具按钮的类型

sailer_shi 2004-07-07

打赏
举报

没有人用过吗？

workers 2004-07-07

打赏
举报

没用过
帮你UP一下

dxmanageer是一个非常优秀的菜单软件，但里面的系统菜单是英文的，比方‘Add or Remove Buttons’就是英文的，这个可能在我们应用的时候会有些小小的瑕疵，本例子就把‘Add or Remove Buttons’修改成了‘删除或添加按钮’

实例讲解如何在Delphi中动态创建dxBarManager内容

今天做程序的时候发现Action多了不好控制于是做了一个类似dxBar.Group功能的东东继承自TCollection/TCollectionItem可以将一些TContainedAction作为一个组来控制当然，修改一下就可以将TComponent作为一个组来控制 :)写得比较简单如果哪位有时间可以给她做个属性编辑器，呵呵有哪位修改了也请给我发一份：）sephil@163.comActionGroup.pas是源文件NSC_ComponentGroup.mpb是ModelMaker的工程文件其他的是Demo另外有个问题我不会就是如何将一个Event(比如TNotifyEvent)转换为TMethod我用的是变通的手段var FGroups: TNSC_ActionGroup;procedure TForm1.FormCreate(Sender: TObject);begin FGroups := TNSC_ActionGroup.Create(TNSC_ActionGroupItem); FGroups.Add.AddFromActionList(ActionList1, ‘1‘); FGroups.Add.AddFromActionList(ActionList1, ‘2‘); FGroups.Add.AddFromActionList(ActionList1, ‘3‘); FGroups.Add.AddFromActionList(ActionList1, ‘4‘);end;procedure TForm1.NewClick(Sender: TObject);begin ShowMessage(‘123‘);end;procedure TForm1.Action1Execute(Sender: TObject);var M: TMethod; C: TLabel;begin // Setup OnExecute event // I really don‘t know how to convert an event (such as TNotifyEvent) to TMethod C := TLabel.Create(nil); try C.OnClick := NewClick; M := TMethod(C.OnClick); finally C.Free; end; FGroups[0].SetProperty(‘OnExecute‘, M); FGroups[0].SetProperty(‘Caption‘, ‘11‘); FGroups[1].SetProperty(‘Caption‘, ‘Test‘); FGroups[2].SetProperty(‘Enabled‘, False); // Get OnExecute from gruop 1 and set to group 4 FGroups[0].GetProperty(‘OnExecute‘, M); FGroups[3].SetProperty(‘OnExecute‘, M); if FGroups[3].PropertyGrouped(‘Enabled‘) then ShowMessage(‘Group[3] ‘‘Enabled‘‘ property grouped‘); if not FGroups[3].PropertyGrouped(‘Enabled‘, False) then ShowMessage(‘Group[3] ‘‘Enabled‘‘ property not grouped to ‘‘False‘‘‘); if not FGroups[3].PropertyGrouped(‘Caption‘, ‘Action10‘) then ShowMessage(‘Group[3] ‘‘Caption‘‘ property not grouped to ‘‘Action10‘‘‘);end;

Written by flexitimePS: 有鉴于几位热心网友的意见，所以还是决定写一下一些技术相关的BLOG，并希望能有网友不吝赐教 DevExpress是一个十分有名的Delphi控件套装，这个套件很多时候都是带有原码的，而我这篇文章正如题目所述的问题，是研究在dxBar中动态添加菜单。其实要完成这件事情并不困难，只是几行代码就说明问题了，但为什么要写这篇文章呢，主要的目的在于说明

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章