1. 程式人生 > >Delphi中“initialization和OnCreate”、“OnClose、OnDestroy和finalization”

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

  注:本文主要是討論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  要執行。

說了這麼多,不知道有沒有說明白問題。希望大家能領悟(俺表達能力比較差,呵呵~~~)。