有三种要领：
一：
放一个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!
