procedure TfrmMain.WMGetMinMaxInfo(var Msg: TMessage);
var
info: ^TMinMaxInfo;
rc: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @rc, 0);
info := pointer(Msg.LParam);
info^.ptMaxPosition.X := rc.Left;
info^.ptMaxPosition.Y := rc.Top;
info^.ptMaxSize.x := GetSystemMetrics(SM_CXMAXIMIZED);
info^.ptMaxSize.y := GetSystemMetrics(SM_CYMAXIMIZED) - 16;
end;
With Office 2007 toolbars and a statusbar at the bottom of the form, unless
16 is subtracted from info^.ptMaxSize.y... the statusbar is cut off by the
taskbar if the
form is maximized in Windows Vista.
Anyone know why this may occur?
Delphi 2007
Windows Vista Premium
