本文整理自网络,侵删。
方法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;
相关阅读 >>
Delphi 动态给combobox赋值,从combobox中取值
Delphi windows 编程[11] - wm_size 消息
Delphi关闭程序close,application.terminate与halt区别
更多相关阅读请进入《Delphi》频道 >>