WM_GETMINMAXINFO限制窗体最大化时的大小

功能说明：WM_GETMINMAXINFO限制窗体最大化时的大小_message

private

{ Private declarations }

procedureWMGetMinMaxInfo(varMsg: TWMGetMinMaxInfo);

//取得最大化的消息

message WM_GETMINMAXINFO;

procedureTForm1.WMGetMinMaxInfo(varMsg: TWMGetMinMaxInfo);

begin

inherited;

withMsg.MinMaxInfo^do

begin

ptMinTrackSize.x:=form1.width;//最小化时的宽度

ptMaxTrackSize.x:=form1.width;//最大化时的宽度

ptMinTrackSize.y:=form1.height;//最小化时的高度

ptMaxTrackSize.y:=form1.height;//最大化时的高度

end;