移花接木，Delphi中主窗体的转移。

在Delphi中，创建一个工程，并添加一个窗体，这样就有两个窗体了。

Form1(Unit1.pas)和Form2(unit2.pas)。Form1是默认的主窗体。我们从工程文件中，将Form2的创建代码删除掉。我们打算动态创建Form2。

我们代码的目的，是要将Form1销毁掉，并创建Form2，并将Form2变为主窗体。Form2关闭，程序就退出。

在Form1上放置一个按钮。上代码：

uses Unit2;

{ 修改 Application 的私有变量 FMainForm 的值，将其置空 }
procedure ClearMainForm;
var
  pMainForm: Pointer;
begin
  pMainForm           := @Application.MainForm;
  Pointer(pMainForm^) := nil;
end;

{ 主窗体切换 }
procedure TForm1.btn1Click(Sender: TObject);
begin
  Form1.Hide;                            { 隐藏主窗体 }
  ClearMainForm;                         { 销毁 Applicaiton 的主窗体 }
  Application.CreateForm(TForm2, Form2); { 创建 Form2 主窗体 }
  Form2.Show;                            { 显示 Form2，这时是主窗体了 }
  Form1.Destroy;                         { 销毁 Form1，这时程序并不会退出程序，因为 Form1 已经不是主窗体了。关闭 Form2 就退出程序了，因为这时 Form2 才是主窗体 }
end;

{
  Application.CreateForm(TForm2, Form2);

  创建 Form2 主窗体

  只能用 Application.CreateForm 创建窗口。

  因为 Application.CreateForm 创建窗口时，会去检查 FMainForm 是否为空 nil，如果为 nil，会再次创建主窗体，这时就是 Form2 了。

  版本    Delphi2010 / DelphiXE

  单元    Forms.pas

  函数    procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);

  9869行  FCreatingMainForm := (FMainForm = nil) and InstanceClass.InheritsFrom(TForm); 这时 FCreatingMainForm 就赋为 True 了,

  3172行  TCustomForm.Create 调用了这个变量，但没有可能将其赋为 True 的地方，所以只能用 Application.CreateForm(TForm2, Form2); 创建窗体了。

  9886行  if (FMainForm = nil) and (Instance is TForm) then 判断是否要创建主窗体，因为 FMainForm 这时是等于 nil 的， 所以这句返回 True

  9889行  FMainForm := TForm(Instance);  创建主窗体了

  具体见 TApplication.CreateForm 的实现代码
}

VCL的代码是值得好好研究的。下一篇，我会利用VCL的机制，来一篇《通过控件句柄获取控件实例》。