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 tdirectory.getdirectories

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 2009 之 tbuttonededit

Delphi显示 jpg、png、gif 图片及 gif 动画

Delphi程序运行在64位机器连接odbc的问题

Delphi 一个绘制虚线的非常规函数（常规方法，打印机上绘制不出虚线）

Delphi里面控制edit只能输入数字

Delphi 延时的4种方法

Delphi抓屏代码

Delphi利用系统时间产生随机数的函数

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

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