想建立一工具条，可以拖动、改变形状，而且工具条里面不是BUTTON，而是可以弹出类似MAINMENU的多级菜单。 (200分)

想建立一工具条，可以拖动、改变形状，而且工具条里面不是BUTTON，而是可以弹出类似MAINMENU的多级菜单。

这不很easy吗？如下就是解决方法：
1.放一个controlbar
2.放一个toolbar到controlbar上
3.放一个ImageList,添加图标
4.放一个popupmenu,添加若干菜单项
5.在toolbar上点右键
6.然后new toolbutton多个
7.全选toolbutton1，toolbutton2,toolbutton3...，另Grouped:=true
8.设置toolbutton1.style=tbsButton,
toolbutton2.style=tbsButton,
toolbutton3.style=tbsButton...
9.设置toolbutton1.menuitem,toolbutton2.menuitem,toolbutton3.menuitem...
10.toolbar.flat:=true;
11.controlbar.docksite:=true;
12.toolbar.dragkind:=dkdock;
然后运行，此时工具条，可以拖动、改变形状了，

接受答案了.