放一个ControlBar;
里面放一个Toolbar,Flat:=true,ShowCaptions:=true;
所有的ToolButton的Grouped:=true;
为每一个ToolButton作一个PopupMenu,赋给ToolButton的DropdownMenu属性。
将ToolBar设置为可拖动的(DragMode:=dmAutomation)。

解决方案 »

  1.   

    ToolBar还是ControlBar有一个Menu属性,在窗体上放一个menu控件,然后把Menu属性设置为这个menu控件就可以了。
      

  2.   

    请问以上两位,你们是不是用Delphi6实现的此功能
    我现在正用Delphi5编程,以上问题如何实现
      

  3.   

    寝室在Delphi5 下也有同样的控件。你完全可以实现此功能!