Delphi中正常窗口的实现

发布: 2008-5-19 10:32 | 作者: 不详 | 来源: 5uwl.net | 查看: 104次 | 进入软件测试论坛讨论

隐藏的窗口是由Application对象创建的，那么Application对象又从何而来呢？在Delphi的代码编辑窗口中按住Ctrl点击Application就会发现，Application对象是在Forms.pas单元中定义的几个全局对象之一。这还不够，我们想要知道的是Application对象是在什么地方创建的，因为必须成功创建了TApplication类的实例我们才能引用它。
想一下，有什么代码会在Application.Initialize之前执行呢？对了，是initialization代码段中的代码。认真调试过VCL源码就可以知道，VCL中很多单元都有initialization代码段，启动Delphi程序时，先是按照uses的顺序执行每个单元中initialization代码段的代码，完成所有的初始化动作之后才执行Application的Initialize方法以初始化Application，所以很显然，Application对象是在某个单元的initialization代码段中创建的。
以"TApplication.Create"为关键字在VCL源码目录中搜索一番，我们果然在Controls.pas单元中找到了创建Application对象的代码。在Controls.pas单元的initialization代码段，有一句对InitControls过程的调用，而InitControls的实现则如下所示：

Unit Controls;
…
initialization
    ...
    InitControls;

procedure InitControls;
begin
...
  Mouse := TMouse.Create;
  Screen := TScreen.Create(nil);
  Application := TApplication.Create(nil);
...
end;

好，到这里我们的分析就完成了第一步，因为要解决非正常窗口的问题，我们必须要在Application对象初始化之前做一件事，因此了解应用程序的初始化过程就非常重要了。