procedure TForm1.BitBtn1Click(Sender: TObject);
var p:tpoint;
begin
p.x:=BitBtn1.Left;
p.y:=BitBtn1.top+bitbtn1.Height;
p:=clienttoscreen(p);
PopupMenu1.Popup(p.x,p.y);
end;这样得到的POP左右对了,可上下位置不对,请哪位指点一下
var p:tpoint;
begin
p.x:=BitBtn1.Left;
p.y:=BitBtn1.top+bitbtn1.Height;
p:=clienttoscreen(p);
PopupMenu1.Popup(p.x,p.y);
end;这样得到的POP左右对了,可上下位置不对,请哪位指点一下
你原来那个应该可以啊,你是想在鼠标处弹出菜单吗?
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.y);