请教‘怎样正确动态建一个窗体’？

Question

Form1有一个按纽button1,按下按纽后form2创建并显示，应该怎样正确写？谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2 : TForm;
begin
  Form2 := TForm.Create(Application);
  try
    Form2.Show;
      .
      .
      .
    other code
  finally
    Form2.Free;
  end;end;

Answer 2

Var 
  MyForm:TForm;//也可以是你自己创建的窗体类名;
begin
  MyForm:=TForm.Create(Application);
  MyForm.Caption:='我的窗体';
  ……//设置MyForm的其它属性
  MyForm.Show;
  ……
  MyForm.release;
end;

Answer 3

可以试试看
procedure TForm1.Button1Click(Sender: TObject);
var
  FormValue : TForm;
begin
  FormValue := TForm.Create(Self);
  with FormValue do
  begin
    Top := 11;
    Left := 11;
    Width := 200;
    Height := 200;
    Caption := 'Create Form';
    ShowModal;
    Free;
  end;
end;