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 62进制转10进制

Delphi货币类型转中文大写金额

学习使用Delphi for android 调用java类库

Delphi 数组竟然可以这样定义

Delphi 怎么计算一个memo中输入的汉字数目

Delphi xe5 android 调用手机震动(通过jobject测试是否支持震动)

Delphi 程序运行提示 “database login”对话框,让输入adoconnection1 的username和password

Delphi 安卓app自动升级

Delphi内存映射 与 映射数据获取

Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...