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;
 

相关阅读 >>

dephi获取系统常量

unigui js操作Delphi控件赋值

Delphi unigui从数据表里下载流文件

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi insert 插入一个字符(串)

Delphi版插apc杀进程驱动源码

Delphi 获取大于2g的物理内存大小

Delphi10.3通过rest单元使类和json数据互相转换

Delphi 得到ip地址最后一个点后面的值

Delphi中用拼音首字符序列来实现检索功能

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

转载请注明出处：木庄网络博客 » Delphi 跟随鼠标位置点击弹出菜单