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

>>阅读原文<<