财务软件版1楼: 我想将popmenu的弹出限定在label或其它控件的左下角,如何写？

2楼: 取得控件左下角的坐标，再调用popmenu函数。 如电脑销售管理软件

3楼: 如何取得控件左下角的坐标？

4楼: 控件.left
控件.top+控件.height

5楼: procedure TForm1.Label1Click(Sender: TObject);
var
ptObject: TPoint;
begin
ptObject := TLabel(Sender).Parent.ClientToScreen(Point(TLabel(Sender).Left,
TLabel(Sender).Top + TLabel(Sender).Height));
PopupMenu1.Popup(ptObject.X,ptObject.Y);
end;

6楼: PopupMenu1.Popup(X,Y);

财务软件版7楼: 接受答案了.