var
P: TPoint;
ahwnd:hwnd;
rec:Trect;
begin
GetCursorPos(P,',',');
//取得当前鼠标所在窗体的句柄
ahwnd:=WindowFromPoint(P,',',');
GetWindowRect(form1.Handle,rec,',',');
Self.Caption :='桌面坐标'+ Format('X: %d, Y: %d',[P.X, P.Y])+' REC：'+inttostr(rec.Left)+':'+inttostr(rec.Top)+' '+'客户区坐标：'+inttostr(p.X -rec.Left )+':'+inttostr(p.Y -rec.Top)+ ' ';
SetCursorPos(form1.Left+inttostr(p.X -rec.Left ),form1.Top+inttostr(p.X -rec.Top),',',');
关键字词:
