本文整理自网络,侵删。
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 for android 调用java类库
Delphi xe5 android 调用手机震动(通过jobject测试是否支持震动)
Delphi 程序运行提示 “database login”对话框,让输入adoconnection1 的username和password
Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄
更多相关阅读请进入《Delphi》频道 >>