delphi TPopupMenu.Popup

时间：2014-08-01 10:28:41 阅读：430 评论：0 收藏：0 [点我收藏+]

标签：des style blog http color os strong io

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;

同样适用窗体的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;

procedure TForm1.Button2Click(Sender: TObject);

var

p:TPoint;

begin

p:=GetDeskPos(Self,Button2);

PopupMenu1.Popup(p.X,p.Y);

end;

来自为知笔记(Wiz)

delphi TPopupMenu.Popup,布布扣,bubuko.com

delphi TPopupMenu.Popup

标签：des style blog http color os strong io

原文地址：http://www.cnblogs.com/xe2011/p/3884189.html