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