来者有分+解决马上散分:关于ToolButton按钮(子按钮功能)
它有一个style属性,我将它的值设置tbsDropDown,设置成它有一个下拉
我是想下面还有子按钮功能.
想让工具栏上的按钮具有子按钮功能,这如何实现?
[解决办法]
在属性中添加好下拉菜单后,在菜单中写事件.
procedure TForm1.ToolButton1Click(Sender: TObject);
var
apoint:Tpoint;
begin
APoint := ToolButton1.ClientToScreen(Point(0, ToolButton1.ClientHeight));
ToolButton1.DropdownMenu.Popup(APoint.X, APoint.Y);
end;
[解决办法]
使用actionList,帮定同一个action?
[解决办法]
同意楼主，用actionList，按钮和菜单同时绑定ActionList里一个Action，同时这样设置用户权限也方便
