类似与delphi5的工具栏的制作

Question

我试过了，可以用下面的方法
1。先定义好你的主菜单mainmenu（所在form的menu属性为空）
2。放一个controlbar
3.controlbar上放一个toolbar(flat=true,showcaption=true)
4.然后在toolbar为mainmenu第一层的每一个菜单项建立一个toolbutton(toolbutton的menuitem指向相应的第一层菜单项
然后运行 看看吧
具体外观效果自己设置吧

Answer 1

1.在窗体上放一个ControlBar控件
2.在ControlBar1上面放一个toolbar，设置其ShowCapitions属性为true，flat为true，然后新建一个按钮toolbtn1 
3.放入一个mainmenu控件mainmenu1，设置其items为file1和exit1
4.设置toolbtn1的menuitem为popupmenu1，style为tbsButton
5.如果是有多个菜单项的话，请分别设置每一个toolbtn的grouped为true
//注意第五条！

Answer 2

其实可以用在CoolBar上放置ToolBar来实现可泊位的菜单栏
先放一个PopMenu1、在窗体上放置CoolBar，设置它的DockSite属性为True
2、在CoolBar上放置ToolBar,设置ToolBar的DragKind为dkDock,DragMode为dmAutomatic。
4、设置ToolBar的Flat属性为True，使工具栏按钮有浮动效果.
3、在CoolBar上添加工具栏按钮，设置按钮的Style属性为tbsButton，设置按钮的DropDownMenu属性为一PopMenu再对工具栏及其按钮的高、宽和Caption进行设置即可，一个ToolButton对应一个popMenu。

Answer 3

有现成的构件DevExpress，其中ExpressBars可以做的跟Office2000一样，http://www.24suns.com/freedelphi/NewBlack/vcl/devexpress/vcl_devexpress.htm
http://www.ocloud.com/olddownload/dlview.php?kind=display