MDI窗体问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(form2) then
begin
Form2 := TForm2.Create(Application);
end
else
form2.Show;
end;
end.procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;当关闭FORM2后，再点击怎么打不开form2了啊

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form2 = nil then
    Form2 := TForm2.Create(Self)
  else
    form2.Show;
end.procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  form2 := nil;
end;