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

最新推荐文章于 2025-03-23 00:59:22 发布

以后换名字

最新推荐文章于 2025-03-23 00:59:22 发布

阅读量4k

点赞数 6

本文链接：https://blog.csdn.net/weixin_44387646/article/details/87971347

版权

DELPHI 个人小心得同时被 2 个专栏收录

36 篇文章

订阅专栏

delphi windows

31 篇文章

订阅专栏

本文介绍了一段使用Delphi进行坐标转换和鼠标定位的代码。通过获取编辑框的位置并将其转换为屏幕坐标，然后设置鼠标光标位置到指定坐标，展示了如何在Delphi中操作鼠标和获取窗口的矩形区域。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、直接上代码

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