获取控件的xy坐标

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

  Apoint:TPoint;

begin

  APoint:=TSpeedButton(Sender).ClientToScreen(Point(0,TSpeedButton(Sender).ClientHeight));

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

end;