我要动态获得鼠标所在屏幕的坐标，但遇到了一点问题

Question

我要动态获得鼠标所在屏幕的坐标，然后将x,y赋值给edit1和edit2，使用FormMouseMove实现了得到鼠标在程序窗口的坐标，但是一旦鼠标离开程序窗口，就无法获得坐标的x和y了，而且0，0点就是程序窗口标题栏下最左上那一点，如何获得鼠标在屏幕上的真实坐标？谢谢。

Answer 1

可以加在timer中var
  p:TPoint;
begin
  GetCursorPos(p);
  Edit1.Text := IntToStr(p.X)+':'+IntToStr(p.Y);
end;

Answer 2

绝对坐标和相对坐标的变换，用
ScreenToClient
和
ClientToScreen
两个函数

Answer 3

谢谢二位，采用bdmh的方法了，poolord也可一试，结贴。