이런 예제는 너무 많아서 탈인데... 그래도 올려봅니다. ㅠㅠ

type
  TForm1 = class( TForm )

  private
     { Private declarations }
  public
     { Public declarations }
  protected
     procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;

  end;

implementation

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  inherited;
  with Msg.MinMaxInfo^ do
  begin
    ptMinTrackSize.Y:=200;
    ptMaxTrackSize.Y:=400;
  end;
end;