Delphi ClientToScreen 绝对坐标

procedure TF_PQC.tbprintClick(Sender: TObject); var Point: TPoint; begin point.Y:=tbprint.Top+tbprint.height; point.X:=tbprint.Left; point:=ClientToScreen(point); PM_Print.Popup(point.x,point.y); end;

按钮点击后，popmenu弹在按钮下面。