首页
登录 | 注册

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





2020 jeepxie.net webmaster#jeepxie.net
10 q. 0.009 s.
京ICP备10005923号