请问一下如何在delphi做成象delphi中的菜单一样可移动(50分)

  • 主题发起人 主题发起人 liao2jian
  • 开始时间 开始时间
比如说IE中菜单栏是可移动到地址栏下的
在Delphi中要如何实现
 
工具栏我会,菜单可不会。
为什么让她下来?
 
delphi自己的菜单都是这样,我要写一个菜单可动的程式
 
有一个控件叫MenuBar,可以把主菜单放在它的上面,然后把它放到ControlBar上。
 
MenuBar在那儿有下
 
http://alway.twbbs.org/DELPHI/D32FREE/MENUBAR.ZIP
 
不用下控件啊,Delphi自己的控件就可以啦:

在ControlBar上放CoolBar,定义PoPMenu然后CoolBar的Button的DropDownMenu
指向PopMenu就可以,然后在ControlBar上放其他的控件就可以了
 
多人接受答案了。
 
1.首先在form上放一个coolbar和一个mainmenu;
2.拽一个toolbar放在coolbar上,然后为每一个顶层菜单项加上一个toolbutton;
3.并且设置每个toolbutton的menuitem属性为对应顶层菜单;
4.设置每个toolbutton的group属性为true;
5.清空form中的MainMenu属性(如果它已被赋值);
6.再加一个toolbar就可以实现象delphi中的菜单一样可移动。
(最好把coolbar的Autosize属性设为true,
如果将coolbar换成ControlBar的话会更方便一些)
 
后退
顶部