在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的机制,来一篇《通过控件句柄获取控件实例》。