delphi TPopupMenu.Popup
2024-10-14 13:53:00
procedure TPopupMenu.Popup(X, Y: Integer);
这个点是相对桌面的而不是窗体的
GetCursorPos是鼠标的位置 鼠标动这个点就不一样
var
p:TPoint;
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.Y);
end;
现在要取得 Button1的Left 和Bottom的值 菜单就在这个位置出现
procedure TForm1.Button1Click(Sender: TObject);
var
p:TPoint;
begin
p.X:=Button1.Left;
p.y:=Button1.Top +Button1.Height;
p:=Self.ClientToScreen(p);
PopupMenu1.Popup(p.x,p.y);
end;
var
p:TPoint;
begin
p.X:=Button1.Left;
p.y:=Button1.Top +Button1.Height;
p:=Self.ClientToScreen(p);
PopupMenu1.Popup(p.x,p.y);
end;
同样适用窗体的Show
function GetControlPos(frm:TForm;ctrl:TControl):TPoint;
var
p:TPoint;
begin
p.X:=ctrl.Left;
p.y:=ctrl.Top +ctrl.Height;
p:=frm.ClientToScreen(p);
Result:=p;
end;
var
p:TPoint;
begin
p.X:=ctrl.Left;
p.y:=ctrl.Top +ctrl.Height;
p:=frm.ClientToScreen(p);
Result:=p;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
p:TPoint;
begin
p:=GetDeskPos(Self,Button2);
PopupMenu1.Popup(p.X,p.Y);
end;
最新文章
- Nginx配置SSL证书部署HTTPS网站
- gulp任务
- Beta阶段站立会议-02
- JQuery-事件(部分)
- Java [Leetcode 238]Product of Array Except Self
- Oracle AWR报告指标全解析-11011552
- Away3D 4.1.4 中实现骨骼绑定
- Unique Binary Search Tree
- 利用WSGI来部署你的网站
- ZOJ 3430 Detect the Virus（AC自动机）
- 【C语言】超大数乘法运算
- 【转】关于spring集合对象的补充
- V8编程入门
- bzoj 2186 [Sdoi2008]沙拉公主的困惑 欧拉函数
- 2018-2019-2 网络对抗技术 20165328 Exp6 信息收集与漏洞扫描
- CSS3_线性渐变_径向渐变----背景
- LG3369 普通平衡树
- Nginx 模块分类
- vs不自动退出控制台程序的办法
- g++编译