VCL 中的 Windows API 函数(4): AdjustWindowRectEx

AdjustWindowRectEx 用在了 Forms、DBCtrls 单元.

AdjustWindowRectEx 可以根据窗口样式获取的边缘尺寸.

---

测试:

---

var
  R: TRect;
begin
  SetRect(R, , , , ); {此矩形不是全局变量, 需要初始为空}
  AdjustWindowRectEx(R,                                 {矩形结构承载返回值}
                     GetWindowLong(Handle, GWL_STYLE),  {窗口样式}
                     False,                             {有无菜单}
                     GetWindowLong(Handle, GWL_EXSTYLE) {窗口扩展样式}
                     );

  ShowMessageFmt('%d,%d,%d,%d',[R.Left, R.Top, R.Right, R.Bottom]);

  {结果是: -4,-30,4,4}
  {说明窗口变宽是 4, 标题栏高度是 30}

  {如果指定为有菜单; 结果是: -4,-50,4,4; 说明菜单高度是 20}
end;

---