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下载程序并且urldownloadtofile的进度提示

Delphi中adoquery执行错误的捕捉

Delphi 编写的一个感染文件夹的小病毒

Delphi int64：是Delphi中最大的整数，64位有符号整数

Delphi下firedac连接mysql数据库零起点

Delphi 从字符串中提取汉字的函数

Delphi 通过wmi获取u盘硬件特征码

Delphi api �c multibytetowidechar的用法

Delphi 得到文件夹下所有文件名

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

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