其实用delphi自己带的控件就可解决问题.
1.Put a CoolBar on the Form
2.Put a ToolBar on the CoolBar
3.Add some ToolButtons to the ToolBar
4.Put a MainMenu on the Form
5.Add MenuItems
6.Set the Form's MainMenu property as empty
7.Set the ToolButton's MenuItem property as the MainMenu's menuitem
8.It's Ok.