Delphi 跟随鼠标位置点击弹出菜单


本文整理自网络,侵删。

 
本示例使用一个弹出菜单。当您单击鼠标左右键时,将在您单击鼠标的地方出现弹出菜单。

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu1.AutoPopup := False;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PopupMenu1.Popup(Left + X, Top + Y);
end;

相关阅读 >>

Delphi win10下message无法接收的问题

Delphi memo 内容每n行分批处理

Delphi 简化版的inputquery 中文版输入对话框

Delphi 去掉mdi窗口的滚动条

Delphi idhttp下载带清理网络缓存

Delphi调用sql分页存储过程实例

Delphi “invalid floating point operation.”错误的解决方法

Delphi idhttpserver的使用方法

如何将string变量赋值给pchar变量

Delphi firemonkey限制tedit只能输入数字的完美方法

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



打赏

取消

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

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

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

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

评论

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