Delphi示例代码：PopupMenu的AutoPopup 属性和Popup方法

AutoPopup（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;
联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678