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获取当前计算机所有盘符

Delphi dbgrid中实现copy、paste功能

Delphi中补齐字符串长度

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi system.netencoding

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi 使format输出百分号 %

Delphi 禁用启用网卡

Delphi 无类型文件读写

Delphi 程序获取传参

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

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