GetCursorpos--是个WinAPI来的
procedure TMainForm.Timer1Timer(Sender: TObject);
var
p1,p2:Tpoint;
begin
GetCursorpos(p1);//获取屏幕坐标
Label1.Caption := ' 屏幕坐标:X ' + IntToStr(P1.X) + ' Y ' + Inttostr(P1.Y);
p2:=ScreenToclient(p1);
Label2.Caption := ' 窗体坐标:X ' + IntToStr(P2.X) + ' Y ' + Inttostr(p2.Y);
end;