選択可能なフォームのサイズを変更できなくするには？

解決

サンプー 2006-10-03 01:49:31 No: 23446

選択可能なフォームのサイズを変更できなくするにはどのようにすれば良いのでしょうか?
過去ログ等を参考に下記のコードを記述したら、アクセス違反の例外が形成されました。

unit FrmAddCodeMod;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls;

type
TFrmAddCode = class(TForm)

  private
    { Private 宣言 }
    procedure WMGetMinMaxInfo(var Msg:TWMGetMinMaxInfo);
              message WM_GetMinMaxInfo;
  public
    { Public 宣言 }
  end;

var
FrmAddCode: TFrmAddCode;

implementation

uses DM09;

{$R *.dfm}

procedure TFrmAddCode.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
with Msg.MinMaxInfo^ do
  begin
  ptMinTrackSize.X := FrmAddCode.Width;
  ptMaxTrackSize.X := FrmAddCode.Width;
  ptMinTrackSize.Y := FrmAddCode.Height;
  ptMaxTrackSize.Y := FrmAddCode.Height;
  end;
end;

end.

うぇっへっ！ 2006-10-03 04:01:02 No: 23447

> サイズを変更できなくする
BorderStyle = bsDialog

> 選択可能なフォーム
どんなフォームだ？？

サンプー 2006-10-03 04:02:47 No: 23448

すみません。書き忘れていました。
環境は、DL6Pro,XPです。
それと、動的に生成したフォームのことです。

サンプー 2006-10-03 04:09:25 No: 23449

うぇっへっ！さん有難うございました
解決しました