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

K

KL;

Unregistered / Unconfirmed
GUEST, unregistred user!
想建立一工具条,可以拖动、改变形状,而且工具条里面不是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;
然后运行,此时工具条,可以拖动、改变形状了,
 
接受答案了.
 
顶部