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;原文：https://www.cnblogs.com/zyb2016/p/11194430.html