1,183
社区成员
发帖
与我相关
我的任务
分享
procedure GetFormBorder(hForm : HWND; var iBorder , iCaption : integer);
var
R , R2 : TRect;
begin
GetClientRect(hForm , R);
GetWindowRect(hForm , R2);
iBorder := (R2.Right-R2.Left-R.Right+R.Left) DIV 2;
iCaption := R2.Bottom-R2.Top-R.Bottom+R.Top;
end;