delphi toolbar 单击按钮出现菜单，不是右键菜单？

delphi toolbar 单击按钮出现菜单，不是右键菜单？
实现效果，单击toolbar上的按钮，在按钮下方会出现一个菜单，类似右键菜单。
在按钮的右边有个小三角，点击小三角可以出现，点击按钮不行。
如何实现。

http://www.cnblogs.com/del/archive/2008/09/03/1282928.html

在按钮点击事件增加如下代码：
procedure TfrmSetToolBar.BitBtnClick(Sender: TObject);
var
lppoint: Tpoint;
begin
GetCursorPos(lppoint);
PopupMenu1.Popup(lppoint.x, lppoint.y);
end;