如何能动态的创建窗体?

解决方案 »

  1.   

    创建一个form后,在project 的source 里把窗体的代码 复制到你想创建form的地方
      

  2.   

    With AFormClass.Create(nil) do
    try
    ShowModal;
    finally
    Free;
    end;
    End;
      

  3.   

    procedure TfrmMain.Button1Click(Sender: TObject);
    Var
    v:Tform;
    begin
    v:=Tform.Create(self);
    v.Top :=0;
    v.Left:=0;
    v.Show;
    end;
      

  4.   

    v:Tform;
    begin
    v:=Tform.Create(self);
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      with Tform2.Create(nil) do begin
        name:='form2_2';
        show;
      end;
    end;
      

  6.   

    with T.Create(nil) do begin
       form2。show