注：本文主要是討論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.FormDestroy(Sender: TObject);
begin
ShowMessage('1 Destroy');
end;
initialization
ShowMessage('1 ini');{單元初始化代碼}
finalization
ShowMessage('1 final');{單元退出時的代碼}
end.
************************************************************
initialization —— 在單元中放在文件結尾前，包含用來初始化單元的代碼，它在主程序運行前運行並且只運行一次。
finalization —— 在單元中放在 initialization 和 end. 之間，包含了單元退出時的代碼。在程序退出時運行並且只運行一次。
OnClose —— 在點擊關閉按鈕或執行該事件時調用。
OnCreate —— 在窗體創建時調用。（我的感覺：該事件是在窗體創建之后，即執行構造函數后才執行的）
OnDestroy —— 在窗體銷毀時調用，一般用來銷毀程序員自己定義（自己定義、創建，而不是直接從控件板拖拉過來的控件）的對象、變量、指針等等。（與析構函數的關系我還沒弄清）
下面是執行順序（如果程序中沒有 initialization、 OnCreate、 OnClose、 OnDestroy、 finalization 中的任何一項，則相應跳過即可）：
程序啟動 --> 執行 initialization 處的代碼 --> 執行窗體的構造函數並創建相應窗體和單元中的對象（如拖拉的控件對象，全局變量等） --> 執行 OnCreate 事件 --> 程序運行 --> 關閉主窗體（此處指調用主窗體的Close或點擊主窗體的關閉按鈕） --> 執行 OnClose 事件 --> 執行 OnDestroy 事件 --> 執行 finalization 處的代碼
以上是對於單個窗體而言，下面是對於多個窗體：
新建一工程，創建3個Form，分別是form1、form2、form3,默認情況下form1為主窗體。
<1 begin>
程序啟動 --> 執行 initialization 處的代碼（先 form1 然后 form2 最后 form3 ） --> 執行窗體的構造函數並創建相應窗體和單元中的對象（如拖拉的控件對象，全局變量等） --> 執行 OnCreate 事件（先 form1 然后 form2 最后 form3 ） --> 程序運行 --> 關閉主窗體（此處指調用主窗體的Close或點擊主窗體的關閉按鈕） --> 執行主窗體的 OnClose 事件 --> 執行 OnDestroy 事件（先 form3 然后 form2 最后 form1 ，注意喲，順序倒過來了。） --> 執行 finalization 處的代碼（先 form3 然后 form2 最后 form1 ，注意喲，順序倒過來了。）
<1 end>
為什么 OnDestroy 和 OnCreate 的順序相反？為什么 finalization和 initialization 的順序相反？大家好好想想吧！
另外：如果我在form1中uses 一下Unit2（form2的代碼單元）執行順序如下：
<2 begin>
程序啟動 --> 執行 initialization 處的代碼（先 form2 然后 form1 最后 form3 ） --> 執行窗體的構造函數並創建相應窗體和單元中的對象（如拖拉的控件對象，全局變量等） --> 執行 OnCreate 事件（先 form1 然后 form2 最后 form3 ） --> 程序運行 --> 關閉主窗體（此處指調用主窗體的Close或點擊主窗體的關閉按鈕） --> 執行主窗體的 OnClose 事件 --> 執行 OnDestroy 事件（先 form3 然后 form1 最后 form2 ，注意注意，不一樣了。） --> 執行 finalization 處的代碼（先 form3 然后 form1 最后 form2 ，注意注意，不一樣了。）
<2 end>
多個窗體（單元）一些細節性的東西：
1）initialization
initialization 的執行順序取決於哪個窗體先被調用，對於<1>，由於3個窗體之間沒有 uses 和被 uses 的關系，所以按照工程單元uses 中的順序執行（在工程單元中，如下）：
************************************************************
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
************************************************************
如果改變
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
成為
uses
Forms,
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit1 in 'Unit1.pas' {Form1};
那么就是（先form2后form3最后form1）
對於<2>,由於form1中uses了Unit2，那么在編譯Unit1之前必須先編譯Unit2。順序自然是（先 form2 然后 form1 最后 form3）
所以 initialization 的執行順序首先看彼此單元之間是否有uses和被uses關系（簡單的說就是：調用關系）， 然后再看工程文件的uses的順序。（呵呵，不要被uses弄混了！）
2）OnCreate
OnCreate 的執行順序由工程單元中的如下類似代碼決定
************************************************************
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
************************************************************
改變之后則相應發生改變。
3）OnDestroy
與OnCreate的順序相反。（相反時一種對應，創建的順序與銷毀的順序是相反的，這樣是為了避免發生錯誤，這樣也體現了編程要求思維嚴謹。）
4）finalization
與 initialization 的順序相反。
再說說OnClose，
當調用窗體的Close或點擊關閉按鈕時調用該事件。
主窗體Close后，程序就退出。
非主窗體Close，僅僅是Close本窗體。（別說你在OnClose中調用其他窗體的關閉，那些不再討論范圍）
直接用Application.Terminate強制退出程序時，不調用OnClose事件。但 OnDestroy 和 finalization 要執行。
說了這么多，不知道有沒有說明白問題。希望大家能領悟（俺表達能力比較差，呵呵～～～）。
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=575307
--------------------- 本文來自 雲中雁012345 的CSDN 博客 ，全文地址請點擊：https://blog.csdn.net/peixiaobin_blog/article/details/19009627?utm_source=copy