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

1、直接上代码code 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 := P

>>阅读原文<<