单击按钮左键弹起菜单

 

 

 

方法1

procedure TForm2.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  PopupMenu1.Popup(Pt.X, Pt.Y);
end;

 

方法2

设置控件的DropDownMenu 为右键单击（可手动设置） 这个功能只对ToolBar的 Button有效

PopMenu为右键单击

procedure TForm1.Button1Click(Sender: TObject);
begin
  ToolButton1.DropdownMenu := PopupMenu1;
end;