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