RSS订阅 | 匿名投稿
您的位置:网站首页 > 鼠标 > 正文

Delphi SetCursorPos函数在窗口上定位鼠标坐标

作者:admin 来源: 日期:2014/8/17 9:46:18 人气: 标签:

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));


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: