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 daysbetween 用法片段

Delphi xe 制作的萤光时钟，可改作屏保

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi real控件 rm格式的播放器

Delphi xe可执行文件上启用dep和aslr

Delphi google text to speech api

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi xe2 硬盘序列号

Delphi 调用单元unit代码

Delphi tidhttp 超时设置无效的解决方法

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

转载请注明出处：木庄网络博客 » delphi'控件的相对坐标与屏幕坐标转换