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 tms web core js callproc

Delphi 使用钩子函数 - 数据传递

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi拖动窗体超简单实现

Delphi disable_uac_vista

Delphi 执行dos命令并捕获输出

Delphi如何自动重启程序

Delphi 如何设置文件属性

Delphi 2009 中的泛型

Delphi xe5 for android ttabcontrol 控件

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

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