DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 0
在线用户: 8
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/4 10:00:04
标题:
请问在ToolBar2000中怎样动态增加子菜单? 浏览:2030
加入我的收藏
楼主: 首先动态增加一个父菜单,再在这个父菜单下动态增加一个子菜单。请问怎样实现,能不能给我发一个DEMO。

谢谢!!
----------------------------------------------
-http://www.aipetech.com
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/4 12:47:25
1楼: 没人来啊,我顶!!!
----------------------------------------------
-http://www.aipetech.com
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/4 14:44:58
2楼: 大虾们在哪啊!
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/4 14:58:31
3楼: procedure  TForm1.start;
var
 i,j:Longint;
 s1,s2:string;
 mm,mm1:TMenuItem;

begin
  n1.Clear ;
  for i:=0 to 4 do
   begin//1
     mm:=TMenuItem.Create (n1);
     mm.Caption :=Inttostr(i);
     mm.ImageIndex :=0;
     n1.Add(mm);
     for j:=0 to 4 do
     begin//2
       mm1:=TMenuItem.Create (mm);
       mm1.Caption :=Inttostr(j);
       mm1.Hint:=Inttostr(j);
       mm1.ImageIndex :=1;
       mm.Add(mm1);
     end;//2
   end;//1

end;

偶一不来就没人?
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/4 15:03:10
4楼: 谢谢!
你这是在Menu中吧,我要在ToolBar中实现。
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/4 15:05:45
5楼: 把toolbar的mainmenu设置一下就可以啦
toolbar本身是不允许做菜单的
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/4 15:10:27
6楼: 能不能跟上面一样给我一个例子。拜托了!!
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/4 16:00:34
7楼: 大哥偶现在很忙呀,等等么?
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/5 9:34:58
8楼: Bios大哥有没有来啊!
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/5 10:56:59
9楼: 晕很忙呀
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/5 12:29:27
10楼: 那什么时候有空给我贴一贴吧!
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/5 13:36:45
11楼: 不知道是不是这样啊?
此帖子包含附件:bios_200425133645.rar 大小:173.9K
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/5 15:11:26
12楼: 可不可以在Button1里先建立子菜单“b”再建它的子菜单。
以上功能我在Toolbar2000中做成了。但这个问题我有知怎么做,能不能改成ToolBar2000做啊。
此帖子包含附件:
GIF 图像
大小:8.6K
----------------------------------------------
-http://www.aipetech.com
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/5 15:18:15
13楼: ToolBar2000
这个控件偶看过,很难用所以 偶现在都不理睬他了

另外toolbar2000的菜单是在他本身上加的 偶没试过,所以帮不上忙啊!

添加子菜单在哪里添加都可以啊:
掌握:
mm:=TMenuItem.Create (n1);//这些写他的父亲吧 几是B的父亲A
     mm.Caption :=Inttostr(i);
     mm.ImageIndex :=0;
     n1.Add(mm);//这里A 加入儿子B吧
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/2/5 16:09:40
14楼: 方法是一样的啊

----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 sik (sik) ★☆☆☆☆ -
普通会员
2004/2/5 17:37:38
15楼: 谢谢二位了!!
----------------------------------------------
-http://www.aipetech.com
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行99.97559毫秒 RSS