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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi使用hough变换查找直线

Delphi idhttp post request

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi ifileoperation替换shfileoperation

减小Delphi xe5编译出来的程序体积

Delphi检测程序是否在优盘上运行

Delphi 2009 中 string 与 char 的改变

Delphi 消息实现窗口最小化，最大化，关闭(Delphi)

Delphi 生成guid算法的单元

Delphi 对image字段存取图片、文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi SetCursorPos函数在窗口上定位鼠标坐标