菜单栏的制作!!!!!(100分)

  • 主题发起人 主题发起人 燕子
  • 开始时间 开始时间

燕子

Unregistered / Unconfirmed
GUEST, unregistred user!
各位专家:
目前我急需一种能制作出像Delphi或Word一样的可移动的菜单.我曾尝试用coolbar,
toolbar,但运行后不可移动.HELP ME?
 
No one knew it????
 
你急什么?着几套界面空间包,1stclass,coolmenu之类的,到http://home.online.tj.cn/~kw/看看
 
http://www.net-wing.net/kangwei/
 
用ControlBar1,Panel1,可以完成!
你可以在form中放一个ControlBar1,
再在ControlBar1上放一Panel1。
Run一下,怎么样?
是不是你想要的效果!
如还有问题欢迎给我写信!dingbaosheng@sina.com
 
dingbaosheng:
我试了一下,它不能移动?
 
用 toolbar97 就可以了, 去http://www.net-wing.net/kangwei/
找吧
 
大家都在吗?
 
对,toolbar97!!!
 
Delphi的各个菜单可分别拖拽下,成为一个窗体.
 
在Delphi5的Demos目录下有一个例子:Docking
你可以参考一下,它就实现了这个功能。而且也没有用
什么其它的控件,都是Delphi标准控件
 
我怎麽找不着这个例子呢?
 
想DOCK吧

最简单的,需要再完善

放一个coolbar
set coolbar.align = top
放一个toolbar
set dragkind=dkdock
set dragmode=dmAutomatic

ok 试试吧


 
menxin:thank you!已经有一点我预期的效果了,但是多个菜单不能融合,
不能仅显示菜单,不能隐藏上面的蓝色条.不知道我说的你明不明白?
 
给我email 给你代码.dejun@126.com
 
多个菜单?
你做多个菜单干什么?word什么的只是工具栏嘛,你都做成菜单?不明白
 
实在抱歉,我的意思是上面一个主菜单,下面是工具栏,工具栏和主菜单可分别托拽,
拖下之后成为memxin指教的那样的类似窗体的窗口,而回到原位置时又成为工具栏.
 
用TB97吧!
 

我发给你一个完整的例子吧
 
后退
顶部