delphi中关于TRect解决方法

delphi中关于TRect

Delphi(Pascal) code

var  r:TRect;begin      r:=ClientRect;    r.TopLeft:=Parent.ScreenToClient(ClientToScreen(r.TopLeft));    r.BottomRight:=Parent.ScreenToClient(ClientToScreen(r.BottomRight)); end;

C/C++ code

TRect r = ClientRect;TPoint pt;pt.x = r.Left;pt.y = r.Top;pt = Parent->ScreenToClient(ClientToScreen(pt));r.Left = pt.x;r.Top = pt.y;pt.x = r.Right;pt.y = r.Bottom;pt = Parent->ScreenToClient(ClientToScreen(pt));r.Right = pt.x;r.Bottom = pt.y;