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

解決

サンプー 2006-10-02 16:49:31 No: 23446 IP: 192.*.*.*

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

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-02 19:01:02 No: 23447 IP: 192.*.*.*

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

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

編集削除

サンプー 2006-10-02 19:02:47 No: 23448 IP: 192.*.*.*

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

編集削除

サンプー 2006-10-02 19:09:25 No: 23449 IP: 192.*.*.*

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

編集削除