本文整理自网络,侵删。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) Button1: TButton; PopupMenu1: TPopupMenu; fgh1: TMenuItem; drg1: TMenuItem; dg1: TMenuItem; procedure Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);varpt:TPoint;beginGetCursorPos(pt);PopupMenu1.Popup((pt.x-x),(pt.y+(Button1.Height-y))); end; end.
来源:https://www.cnblogs.com/zhangzhifeng/p/9935245.html
相关阅读 >>
Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态
更多相关阅读请进入《Delphi》频道 >>