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 gridpanel percent百分比设置

Delphi 判断指定字符串是否开头 startstext用法

Delphi 打开android应用信息

Delphi文件捆绑器

Delphi xe3中使用tidftp的示例

ring3下清零结束进程的Delphi版本

Delphi memo1自动循环上下滚屏

Delphi 10.3 断点全部失效

Delphi 枚举消息钩子的代码

Delphi 去除 tstringlist 重复项

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

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