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

功能说明：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;

end;

通过 Wiz 发布