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 rs232c接脚与对连线

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi格式化输出函数

Delphi中实现dbgrid列宽度自动调整

rad studio Delphi创建安卓服务creating android services

Delphi检测android mock位置

Delphi 复制文件到全盘

Delphi lockbox 做加密解密

Delphi 内存管理[2]

Delphi spcomm 调试串口解决总是在程序断开的时候才发送指令的问题

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

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