本文整理自网络,侵删。
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 按字符串长度对tstringlist的元素进行排序
Delphi api �c multibytetowidechar的用法
更多相关阅读请进入《Delphi》频道 >>