怎么实现delphi中用toolbar代替菜单

Question

本身可实现
先在form上放一个coolbar
再放一个toolbar
右键toolbar,新建几个button
更改toolbar的showCaption属性为true,并将flat设为true
再放一个popupMenu,建菜单及子菜单，样式如下
command1  //(右键create submenu)
        command11
        command12  
command2  //(右键create submenu)
        command21
        command22
选中第一个按钮,更改其menuitem的属性，设为command11
选中第二个按钮，更改其menuitem的属性，设为command21
ok，搞定

Answer 1

ToolBar:
  Flat:=true;
  ShowCaptions := true;
为每个ToolButton创建一个PopupMenu,设置为它的DropdownMenu属性.
每个Toolbar的Grouped属性设为True;
OK.     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/