VCL 中的 Windows API 函數: AdjustWindowRectEx

　　AdjustWindowRectEx 用在了 Forms、DBCtrls 單元.

　　AdjustWindowRectEx 可以根據窗口樣式獲取的邊緣尺寸.

　　測試:

var　
　R:　TRect;　
begin　
　SetRect(R,　0,　0,　0,　0);　{此矩形不是全局變量,　需要初始為空}　
　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;