标签：end pop word space obj upm lin form pup
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;标签：end pop word space obj upm lin form pup
原文地址：https://www.cnblogs.com/zyb2016/p/11194430.html
