注:本文主要是討論delphi程序啟動(dòng)時(shí)和退出時(shí)的執(zhí)行順序,期間有些知識來源于Delphi幫助,有些來自《Delphi7程序設(shè)計(jì)教程》(這本書只告訴我有initialization 和 finalization 這兩個(gè)關(guān)鍵字,但是沒講明白)(唉,現(xiàn)在的書只討論框框架架,不討論細(xì)節(jié),寫出來的東西讓你看能看懂,別人一問或者自己一想,就是什么都不懂!講的不細(xì)致呀!唉,自己琢磨吧?。。?。代碼用兩排‘*’標(biāo)明。
好了,進(jìn)入正題,首先說明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');{單元退出時(shí)的代碼}
end. ************************************************************ initialization —— 在單元中放在文件結(jié)尾前,包含用來初始化單元的代碼,它在主程序運(yùn)行前運(yùn)行并且只運(yùn)行一次。 finalization —— 在單元中放在 initialization 和 end. 之間,包含了單元退出時(shí)的代碼。在程序退出時(shí)運(yùn)行并且只運(yùn)行一次。 OnClose —— 在點(diǎn)擊關(guān)閉按鈕或執(zhí)行該事件時(shí)調(diào)用。 OnCreate —— 在窗體創(chuàng)建時(shí)調(diào)用。(我的感覺:該事件是在窗體創(chuàng)建之后,即執(zhí)行構(gòu)造函數(shù)后才執(zhí)行的) OnDestroy —— 在窗體銷毀時(shí)調(diào)用,一般用來銷毀程序員自己定義(自己定義、創(chuàng)建,而不是直接從控件板拖拉過來的控件)的對象、變量、指針等等。(與析構(gòu)函數(shù)的關(guān)系我還沒弄清)
下面是執(zhí)行順序(如果程序中沒有 initialization、 OnCreate、 OnClose、 OnDestroy、 finalization 中的任何一項(xiàng),則相應(yīng)跳過即可): 程序啟動(dòng) --> 執(zhí)行 initialization 處的代碼 --> 執(zhí)行窗體的構(gòu)造函數(shù)并創(chuàng)建相應(yīng)窗體和單元中的對象(如拖拉的控件對象,全局變量等) --> 執(zhí)行 OnCreate 事件 --> 程序運(yùn)行 --> 關(guān)閉主窗體(此處指調(diào)用主窗體的Close或點(diǎn)擊主窗體的關(guān)閉按鈕) --> 執(zhí)行 OnClose 事件 --> 執(zhí)行 OnDestroy 事件 --> 執(zhí)行 finalization 處的代碼
以上是對于單個(gè)窗體而言,下面是對于多個(gè)窗體: 新建一工程,創(chuàng)建3個(gè)Form,分別是form1、form2、form3,默認(rèn)情況下form1為主窗體。 <1 begin> 程序啟動(dòng) --> 執(zhí)行 initialization 處的代碼(先 form1 然后 form2 最后 form3 ) --> 執(zhí)行窗體的構(gòu)造函數(shù)并創(chuàng)建相應(yīng)窗體和單元中的對象(如拖拉的控件對象,全局變量等) --> 執(zhí)行 OnCreate 事件(先 form1 然后 form2 最后 form3 ) --> 程序運(yùn)行 --> 關(guān)閉主窗體(此處指調(diào)用主窗體的Close或點(diǎn)擊主窗體的關(guān)閉按鈕) --> 執(zhí)行主窗體的 OnClose 事件 --> 執(zhí)行 OnDestroy 事件(先 form3 然后 form2 最后 form1 ,注意喲,順序倒過來了。) --> 執(zhí)行 finalization 處的代碼(先 form3 然后 form2 最后 form1 ,注意喲,順序倒過來了。) <1 end> 為什么 OnDestroy 和 OnCreate 的順序相反?為什么 finalization和 initialization 的順序相反?大家好好想想吧!
另外:如果我在form1中uses 一下Unit2(form2的代碼單元)執(zhí)行順序如下: <2 begin> 程序啟動(dòng) --> 執(zhí)行 initialization 處的代碼(先 form2 然后 form1 最后 form3 ) --> 執(zhí)行窗體的構(gòu)造函數(shù)并創(chuàng)建相應(yīng)窗體和單元中的對象(如拖拉的控件對象,全局變量等) --> 執(zhí)行 OnCreate 事件(先 form1 然后 form2 最后 form3 ) --> 程序運(yùn)行 --> 關(guān)閉主窗體(此處指調(diào)用主窗體的Close或點(diǎn)擊主窗體的關(guān)閉按鈕) --> 執(zhí)行主窗體的 OnClose 事件 --> 執(zhí)行 OnDestroy 事件(先 form3 然后 form1 最后 form2 ,注意注意,不一樣了。) --> 執(zhí)行 finalization 處的代碼(先 form3 然后 form1 最后 form2 ,注意注意,不一樣了。) <2 end>
多個(gè)窗體(單元)一些細(xì)節(jié)性的東西: 1)initialization initialization 的執(zhí)行順序取決于哪個(gè)窗體先被調(diào)用,對于<1>,由于3個(gè)窗體之間沒有 uses 和被 uses 的關(guān)系,所以按照工程單元uses 中的順序執(zhí)行(在工程單元中,如下): ************************************************************ 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 的執(zhí)行順序首先看彼此單元之間是否有uses和被uses關(guān)系(簡單的說就是:調(diào)用關(guān)系), 然后再看工程文件的uses的順序。(呵呵,不要被uses弄混了?。?/p>
2)OnCreate OnCreate 的執(zhí)行順序由工程單元中的如下類似代碼決定 ************************************************************ Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); ************************************************************ 改變之后則相應(yīng)發(fā)生改變。
3)OnDestroy 與OnCreate的順序相反。(相反時(shí)一種對應(yīng),創(chuàng)建的順序與銷毀的順序是相反的,這樣是為了避免發(fā)生錯(cuò)誤,這樣也體現(xiàn)了編程要求思維嚴(yán)謹(jǐn)。)
4)finalization 與 initialization 的順序相反。
再說說OnClose, 當(dāng)調(diào)用窗體的Close或點(diǎn)擊關(guān)閉按鈕時(shí)調(diào)用該事件。 主窗體Close后,程序就退出。 非主窗體Close,僅僅是Close本窗體。(別說你在OnClose中調(diào)用其他窗體的關(guān)閉,那些不再討論范圍)
直接用Application.Terminate強(qiáng)制退出程序時(shí),不調(diào)用OnClose事件。但 OnDestroy 和 finalization 要執(zhí)行。
說了這么多,不知道有沒有說明白問題。希望大家能領(lǐng)悟(俺表達(dá)能力比較差,呵呵~~~)。
|