动态创建窗体

Question

请问,如何动态创建窗体

Answer 1

form1 := tform1.create(self);

Answer 2

frm1:=tfrm1.create(application);
frm1.show;
frm1.updata;

Answer 3

var 
 ff:Tform;
begin
 ff:=TForm.create(application);
 ff.show;
end;

Answer 4

楼上差不多。。如果是ShowModual 用FreeAndNil(form1); 来释放资源
Show 用 action := caFree ;   form1 := nil; 来释放 

Answer 5

uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
var form2:Tform2;
begin
    form2:=Tform2.create(application);
    try
      if form2.showmodal= mrok then
      //
      ;
    finally
     FreeAndNil(form2);
    end
end;

Answer 6

uses unit2;procedure TForm1.Button1Click(Sender: TObject);
begin
     try
       form2:=Tform2.create(self);
       form2.showmodal;
    finally
       FreeAndNil(form2);
    end
end;

Answer 7

var
  Form2:TForm2;
begin
  Form2:=TForm2.Create(nil);
  try
    Form2.ShowModal;
  finally
    FreeAndNil(Form2);
  end;
end;

Answer 8

var
  Form1:TForm;
begin
  Form1:=TForm.Create(Self);
  Form1.ShowModal;
end;

Answer 9

application.createform(tform1,form1);
form1.showmodal;
form1.free;
form1:=nil;

Answer 10

都被他们说完了，再补充一点吧，用完后要记得 free.