如何用BCB做出可移动的菜单

有三种方法：

一：

放一个coolbar，在其上放一个toolbar，设置toolbar的showcaptions为true，flat为true，在上面新建一个toolbotton

加入一个popupmenu，设置好其items

设置toolbutton的dropdownmenu为popupmenu，设置其style为btsdropdown

但是这种方法做出来的菜单其实和你要求的并不一样。它的菜单其实是受在按钮旁边的一个小三角符号控制的。

看第二种方法：

1放一个coolbar

2在其上放两个toolbar

3在你想做成菜单的那个toolbar上放一个speedbotton

4设置speedbutton的flat为true，caption为“文件”

5加如一个popupmenu，设置其items为“打开”和“退出”

6在speedbutton的onclick事件里加入以下代码：

void __fastcall TForm1::SpeedButton1(TObejct *Sender)
{
Tpoint Pos;
TSpeedButton *Btn;
Btn = TSpeedButton(Sender);
Pos=Btn.ClientToScreen(TPoint(0,0));
Pos.y=Pos.y+Btn.Height;
PopupMenu1.Popup(Pos.x,Pos.y);
}

第三种方法:

不需要写代码。

步骤：

1、在窗口加一个TControlBar

2、在TControlBar上加一个TToolBar

3、在TToolBar上加足够的按钮(右键菜单的那种)，你希望有多少项菜单就加多少个按钮。

4、加一个TMainMenu,象你希望的一样添加菜单项。

5、去掉窗口的Menu属性中的值（在属性窗口中）

6、设TToolBar属性：

ShowCaption=true

DragKind=dkDock

DragMode=dmAutomatic

Flat=true

EdgeBorder=去掉所有项

7、对TToolBar中的所有按钮的设属性：

Grouped=true

AutoSize=true

MenuItem=你希望按钮对应的菜单项

然后，一切OK!

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!