来者有分+解决马上散分:关于ToolButton按钮(子按钮功能)

Question

它有一个style属性,我将它的值设置tbsDropDown,设置成它有一个下拉
我是想下面还有子按钮功能.想让工具栏上的按钮具有子按钮功能,这如何实现?

Answer 1

在属性中添加好下拉菜单后,在菜单中写事件.
procedure   TForm1.ToolButton1Click(Sender:   TObject);   
  var   
    apoint:Tpoint;   
  begin   
    APoint   :=   ToolButton1.ClientToScreen(Point(0,   ToolButton1.ClientHeight));   
    ToolButton1.DropdownMenu.Popup(APoint.X,   APoint.Y);   
  end;

Answer 2

使用actionList,帮定同一个action?

Answer 3

同意楼主，用actionList，按钮和菜单同时绑定ActionList里一个Action，同时这样设置用户权限也方便