单击按钮左键弹起菜单

 

 

 

方法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;

 

 

posted @ 2013-12-21 11:51  XE2011  阅读(241)  评论(0编辑  收藏  举报