关于窗体的问题

Question

怎么设置子窗体和父窗体。我设置的怎么老出错。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.Show;
end;procedure TForm1.FormCreate(Sender: TObject);
beginend;end.
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
beginend;end.

Answer 1

先吧窗口二从工程启动里移出
然后在窗口1的
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  try
    if not assigned(form2) then
    begin
      form2=TForm2.create(nil);
      form2.showmodel;
    end;
  finally
    freeandnil(form2)
  end;
end;

Answer 2

是不是你的delphi环境有问题，就是说你的delphi是否安装有问题

Answer 3

我已经设置过窗体的formstyle属性的。还有工程选项里的窗体我也设置好的