var

P: TPoint;

ahwnd:hwnd;

rec:Trect;

begin

韦德国际bv1946,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),’,’,’);

相关文章