方法:
var
MyPoint:TPoint;
ScPoint:TPoint;
begin
MyPoint.x:=1;
MyPoint.y:=2;
ScPoint:=ClientToScreen(MyPoint);
end;
注:ScPoint为相对于屏幕上的点