当ToolButton的style的设置为tbsDropDown的时候，如何处理点击小箭头的响应事件？

Question

当我把ToolButton的style的属性设置为tbsDropDown的时候，ToolButton会变成一个带向下的箭头的ToolButton,设置他的DropDownMenu可以设置相应的下拉菜单，当点击小箭头的时候会弹出下拉菜单，现在我想当我点击Toolbutton的时候也要能够弹出右边小箭头的下拉菜单，不知道该如何做？

Answer 1

FOLLOW ME!
在属性中添加好下拉菜单后,在菜单中写事件.

Answer 2

procedure TForm1.ToolButton1Click(Sender: TObject);
var
 apoint:Tpoint;
begin
 APoint := ToolButton1.ClientToScreen(Point(0, ToolButton1.ClientHeight));
 ToolButton1.DropdownMenu.Popup(APoint.X, APoint.Y);
end;