CJC Delphi 技巧馆's Archiver

cjc Posted at 2011-6-9 16:54

Pop up a Menu at Mouse position

How to Pop up a Menu at Mouse position

procedure TForm1.Button1Click(Sender: TObject);
begin
   PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

Page: [1]
CJC好玩背单词最新版本 - 是目前最好的背单词软件,游戏好玩,功能强大,词库众多,还有真人语音,免费下载,免费试用 !

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.