Delphi FAQ: フォームの最小・最大寸法をコントロールしたいのですが。

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
フォームの最小・最大寸法をコントロールしたいのですが。

[Ａ]

FormのWM_GETMINMAXINFOメッセージのハンドラを定義し、ハンドラ内でmsg.MinMaxInfo^.ptMinTrackSize、ptMaxTrackSizeの値を変更します。

Original document by ataru(SGR03043)

[例]

フォームのクラス定義の部分で、
type
  TForm1 = class(TForm)
  (省略)
  private
    procedure WmGetMinMaxInfo(var msg : TWMGetMinMaxInfo);
      message WM_GETMINMAXINFO;
  end;

実装部で、
procedure TForm1.WmGetMinMaxInfo(var msg : TWMGetMinMaxInfo);
begin
  with msg.MinMaxInfo^.ptMinTrackSize do begin (* 最小サイズ制限 *)
    x := 60;
    y := 100;
  end;
  with msg.MinMaxInfo^.ptMaxTrackSize do begin (* 最大サイズ制限 *)
    x := 400;
    y := 200;
  end;
  with msg.MinMaxInfo^.ptMaxSize do begin (* 最大化時サイズ制限 *)
    x := 400;
    y := 200;
  end;
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。