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

2020-04-08

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;






Delphi官方示例代码
阅读381