TdxBarManager子窗体菜单的小问题

aipe 2003-10-19 03:26:50

如何用TdxBarManager将子窗体的的菜单插入父菜单中。

如：
父：
A B C
子：
D E
结果：
A D E B C

...全文

63 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

aipe 2004-02-14

打赏
举报

回复

TO:lihao_ningxia(耗子)

能给我发一个手动增加的例子吧。

aipe 2004-02-05

打赏
举报

回复

请问如何动态增加所有的菜单

zzh54zzh 2003-10-20

打赏
举报

回复

up!

aipe 2003-10-20

打赏
举报

回复

只能这样吗？不能像MainMenu那样吗？麻烦了~~~~~~~~~~~`

上海老李 2003-10-19

打赏
举报

回复

放到public中，慢慢动态加减吧

2010/10/11, 4.0.11 ------------------------------------------------------------------------------------------------------------------------------- 1、增加acroMultiLib.pas，封装了几个函数在里面 2、增加对Delphi XE的支持。 3、按命名管理，把Acro改为acro 4、修正DDManager，在cell中输入空白的DDKey后，离开改行，然后再也不能修改改行的DDKey，也不能取消，只能强制退出的问题。 5、为了尽量不引入不需要的元件，devexpress元件的支持函数分解到多个pas和dpk中。 6、增加了几个flash演示影片 2010/6/15, 4.0.10 ------------------------------------------------------------------------------------------------------------------------------- 1、在IDataLocate接口增加DoBeforeReplaceComponent和DoAfterReplaceComponent函数，这样Class的ReplaceMethod就可以在替换集合元件时触发事件，让用户有机会决定是否替换其中的子元件，如TdxBarManager 2、在TAcroMultiResourceRepository增加函数： function GetDisplayValue(ADDKeyRecResourceStringRec):string; function GetDisplayValueAnsi(ADDKeyRecResStringRec):ansistring;overload; function GetDisplayValueUnicode(ADDKeyRecResStringRec):WideString;overload; 从原始ResourceString中获得翻译结果 3、在TMultiClassMethodStorage增加函数： procedure RegisterClassMethod(AClass:TClass;AMethod:TMultiLanguageReplaceProc; ABeginUpdateProc:TMultiLanguageBeginUpdateProc; AEndUpdateProc:TMultiLanguageEndUpdateProc);overload;virtual; 在TAcroMultiScreen替换Form时，会调用每个元件注册的BeginUpdatePro和EndUpdateProc，这样可以很好的控制效率，特别是cxTreeList/cxGrid元件，因为替换Column的Properties时也可能引起cxTreeList/cxGrid反复Repaint

/重要:停靠方式，不设置，将会浮动在窗口之外，这里一般在顶部停靠。//是否是主菜单 false 为工具栏。ABar.Caption := '文件';ABarSubItem.Caption:='帮助';ABarButton.Caption:='关闭1';ABarButton.Caption:='关闭2';ABarButton.Caption:='关于';ABarButton.Caption:='关闭';//添加工具栏下菜单。

开启工具栏属性：UseRestSpace设置按键属性：Align（iaRight靠右）

---无代码下载
{
经常上盒子查找需要的资料，今天给大家发一点有用的代码
相信好多人都用过dxbarmanager的菜单，但要动态增加项目可能会感觉不知所然！
以下代码在D7测试通过
bigwell
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

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

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章