Delphi 限制窗体大小的最大值与最小值

【Delphi】限制窗体大小的最大值与最小值

 

QQ主窗体可以随意拉动，但在拉小时，会在达到某个最小

 

宽度或高度后无法再拉动，这里有2种方法：

 

1）：使用VCL窗体控件的Constraints子组件，如下设置：

 

procedure TForm1.FormCreate(Sender: TObject);

begin

 

    //设置窗体容器高度和宽度大小的最大值和最小值，0表示无限制

    Self.Constraints.MaxHeight := 800;

    Self.Constraints.MaxWidth := 800;

    Self.Constraints.MinHeight := 200;

    Self.Constraints.MinWidth := 200;

 

end;

 

上面这种方法有个缺点，就是在鼠标按住窗体左边边沿拉小窗体达到最小值时，窗体会移动，解决办法就是使用下面第二种方法。

 

2）：处理windows消息WM_WINDOWPOSCHANGING

 

该消息在窗体大小位置正在改变时触发，代码如下：

 

 

 

TForm1 = class(TForm)

 

private

    { Private declarations }

    procedure WndProc(var Msg: TMessage);override;

 

end;

 

//重载窗体过程

 

procedure TForm1.WndProc(var Msg: TMessage);

 

var

   NewWidth,

   NewHeight: Integer;

begin

 

  case Msg.Msg of

 

     WM_WINDOWPOSCHANGING: //正在改变位置或大小

     begin

         NewWidth := PWindowPos(Msg.LParam)^.cx;

         NewHeight:= PWindowPos(Msg.LParam)^.cy;

         if (NewWidth>0) and (NewHeight>0) then

        if (NewWidth<200)or (NewHeight<200)or (NewWidth>800)or (NewHeight >800)   then

         PWindowPos(Msg.LParam)^.flags := SWP_NOSIZEor SWP_NOMOVE;

      end;

 

   end;

 

   inherited;  

 

end;