深入VCL源码研究DELPHI窗体的创建和关闭

一、窗体的建立

       在DELPHI中，我们通常使用Application.CreateForm(TForm2, Form2)和TForm.create来创建窗体，我们几乎无法区别这两种方法差异，更何况，我们更多的时候都是在使用TForm.create来生成子窗体。

       不过，仔细观察VCL源码，你会发现，其实两者区别很大。

procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
  Instance : =  TComponent(InstanceClass.NewInstance);
  TComponent(Reference) : =  Instance;
   try
    Instance.Create(Self);
  except
    TComponent(Reference) : =  nil;
    raise;
  end;
   if  (FMainForm  =  nil) and (Instance  is  TForm) then