delphi 单击按钮左键弹起菜单


本文整理自网络,侵删。

 
方法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 webbrowser 查找对话框

Delphi windows 编程[11] - wm_size 消息

Delphi 两个非常有用的进程函数

Delphi idhttp 获取链接连通状态

Delphi多线程图片转换类实现

Delphi-xe5-开发 android uri简介

Delphi 如何在数据表中存取图片

Delphi 封装的tidhttp get post 请求

Delphi关闭程序close,application.terminate与halt区别

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...