[NumLock]

Код:

The GetClientRect function retrieves the coordinates of a window's client area.

все легко получается:

Код:

var
  rct: TRect;
  TopLeft: TPoint;
begin
  Windows.GetClientRect(Handle, rct);
  TopLeft.X:=0;
  TopLeft.Y:=0;
  Windows.ClientToScreen(Handle, TopLeft);
  rct.Left:=rct.Left+TopLeft.X;
  rct.Top:=rct.Top+TopLeft.Y;
  rct.Right:=rct.Right+TopLeft.X;
  rct.Bottom:=rct.Bottom+TopLeft.Y;
  Memo1.Lines.Add('--GetClientRect--');
  Memo1.Lines.Add(IntToStr(rct.Left));
  Memo1.Lines.Add(IntToStr(rct.Top));
  Memo1.Lines.Add(IntToStr(rct.Right));
  Memo1.Lines.Add(IntToStr(rct.Bottom));
  Windows.GetWindowRect(Handle, rct);
  Memo1.Lines.Add('--GetWindowRect--');
  Memo1.Lines.Add(IntToStr(rct.Left));
  Memo1.Lines.Add(IntToStr(rct.Top));
  Memo1.Lines.Add(IntToStr(rct.Right));
  Memo1.Lines.Add(IntToStr(rct.Bottom));
end;