Delphi中“initialization和OnCreate”、“OnClose、OnDestroy和finalization”

moklee

于 2006-01-10 14:44:00 发布

阅读量6.4k

点赞数 2

分类专栏： Delphi 文章标签： initialization delphi forms interface button windows

本文链接：https://blog.csdn.net/moklee/article/details/575307

版权

本文详细探讨了Delphi中initialization、OnCreate、OnClose、OnDestroy和finalization的执行顺序，以及在单窗体和多窗体应用中的不同。initialization和finalization在单元文件中的位置及其执行时机，OnCreate和OnDestroy事件在窗体生命周期中的作用，以及uses子句如何影响初始化顺序。在多窗体应用中，关闭窗体的顺序与创建顺序相反，这有助于理解Delphi程序的生命周期和资源管理。

摘要由CSDN通过智能技术生成

注：本文主要是讨论delphi程序启动时和退出时的执行顺序，期间有些知识来源于Delphi帮助，有些来自《Delphi7程序设计教程》（这本书只告诉我有initialization 和 finalization 这两个关键字，但是没讲明白）（唉，现在的书只讨论框框架架，不讨论细节，写出来的东西让你看能看懂，别人一问或者自己一想，就是什么都不懂！讲的不细致呀！唉，自己琢磨吧！！）。代码用两排‘*’标明。

好了，进入正题，首先说明initialization 和 finalization 在代码单元中的位置：
************************************************************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('1 FormCreate');
end;

procedure TForm1.FormD