delphi'控件的相对坐标与屏幕坐标转换


本文整理自网络,侵删。

 
DELPHI 控件的相对坐标与屏幕坐标转换

一、直接上代码

var
  pt: TPoint;
  r: TRect;
begin
  pt := Point(Edit1.Top, Edit1.Left);
  pt := ClientToScreen(pt);
  Edit2.Text := inttostr(pt.X);
  Edit3.Text := inttostr(pt.y);
  Mouse.CursorPos := Point(pt.X, pt.y);
  GetWindowRect(Form2.Handle, r);
  Mouse.CursorPos := Point(r.Left + 20, r.Top + 150 + 20);
 

相关阅读 >>

Delphi winapi: extracticon - 获取 exe、dll 或 ico 文件中的图标

Delphi 判断字符串是否包含数字

Delphi settimer 功能:定时api

Delphi 检查ip地址合法性

Delphi 按字符串长度对tstringlist的元素进行排序

idtcpserver 用户掉线检测方法

Delphi api �c multibytetowidechar的用法

Delphi playsound(); 停止播放

Delphi idhttp访问路由里的web

Delphi 一行一行读取txt文件

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...