Delphi中關於TApplication類的詳解 (轉)

Delphi中關於TApplication類的詳解 (轉)[@more@]

中關於TApplication類的詳解

 :namespace prefix = o ns = "urn:schemas--com::office" />

　　TApplication是Delphi應用的型別，該類是從TComponent繼承，在單元Forms中宣告。並且在Forms中有個公用的Application。其方法和屬性集中包括了 操作中建立、執行和銷燬應用程式等既定的基本操作和屬性，因此在用Delphi編寫 Windows應用程式時簡化了和Windows環境之間的介面。TApplication封裝了以下四個功能：

1、Windows訊息處理。

2、選單加速和鍵盤處理。

3、異常處理。

4、上下文聯機幫助。

下面就向大家介紹TApplication中的常用屬性、方法和事件。

1、屬性

1．  1屬性Active

屬性Active指明瞭應用程式是否處於活動狀態且擁有焦點。定義如下：

　　property Active: Boolean;

Active是隻讀屬性。當應用程式是活動狀態時Active為True，否則為False。TApplica-tion的構造器(constructor) 置Active為True。如果視窗或應用程式擁有焦點，那麼該應用程式是活動的。當其它應用程式的視窗成為活的時，當前應用程式即為非活動的。應用程式關閉時TApplication的析構器(destructor) 置Active為False。

在應用程式中，可以用一個計時器(TTimer)來檢查屬性Active的值，從而確定當前的應用程式是否是活動狀態，以便作出相應的處理。也可以在事件OnActive和事件OnDeactive中定義指定的操作。

  1．2屬性DialogHandle

　　屬性DialogHandle提供使Delphi應用程式使用非Delphi對話方塊的一種機制。定義如下：

　　property DialogHandle: HWnd;

當使用CreateDialog建立一個非化對話方塊時需要使用 DialogHandle，並且需要檢視應用程式訊息迴圈中的訊息以進行相應的操作。比如，當一個非模式化對話方塊收到一條啟用訊息(WM_NCACTIVATE)時可以將其控制程式碼賦值到 DialogHandle，當對話方塊收到一條解除啟用訊息時置DialogHandle為0。

1．3屬性ExeName

　　屬性ExeName包含了可的應用程式名極其路徑資訊。定義如下：

　　property ExeName: string;

　　  ExeName是隻讀屬性。使用ExeName能夠得到應用程式可執行檔案的檔名。

這是一個很有用的屬性。例如，執行光碟中的應用程式 f:mediamyapp.exe 時，可能需要訪問目錄 f:mediadata 中的檔案或者確定應用程式所在的器磁碟機代號。 這時可以使用Delphi提供的函式ExtractFilePath和ExtractFileName對屬性ExeName 進行解析，從而得到需要的資訊。

1．4屬性Handle

　　屬性Handle提供了對應用程式主視窗控制程式碼的訪問。定義如下：

　　property Handle: HWND;

當一個需要父視窗控制程式碼的 Windows API函式時需要使用Handle屬性。例如，應用程式中某個動態連結庫(DLL) 可能需要父視窗控制程式碼以使得其自身能夠彈出並且顯示在最前端。使用Application.Handle構成應用程式的若干視窗，使得這些視窗在應用程式中能夠被最小化、恢復、有效或無效。注意：編寫一個使用 VCL窗體的動態連結庫時，應將主執行程式中主視窗的控制程式碼賦值到該動態連結庫的Application.Handle屬性。這樣就使得動態連結庫的窗體成為主應用程式的一部分。需要特別指出的是，永遠不要在EXE應用程式中給Application.Handle賦值。

1．5屬性HelpFile

　　屬性HelpFile指明瞭應用程式用於顯示幫助內容的檔名。定義如下：

　　property HelpFile: string;

使用HelpFile是為了應用程式擁有一個使用標準Windows幫助系統的幫助檔案。Windows顯示由HelpFile屬性指明的幫助檔案。要讓應用程式實現這一點，必須在執行時為HelpFile屬性賦予一個檔名的值，或者在設計時Project|Options對話方塊的Application頁面中指定一個幫助檔案。預設情況下，HelpFile是一個空串(')，並且應用程式的幫助方法忽略所有的試圖顯示幫助。如果HelpFile包括任何內容，幫助主題的方法將根據檔名調出 Windows幫助系統以提供聯機幫助。

　　注意：如果活動視窗的幫助檔案已指定，則該檔案將優先於應用程式的幫助檔案顯示。

1．6屬性Hint

　　屬性Hint指明瞭出現在幫助提示框(Help Hint box)中的文字字串。定義如下：

　　property Hint: string;

TApplication.Hint屬性就是滑鼠正在移動經過的或選單項的 Hint值。該屬性也能被賦予一個向使用者提供動作、錯誤或其它資訊的字串值。因此，使用Hint屬性也能夠：從控制元件傳遞提示資訊到另一顯示區，例如透過OnHint事件控制程式碼將提示顯示到狀態列中。這時是讀取Hint屬性。當應用程式正在進行某一動作時簡要描述其狀態。這時是設定Hint屬性。當OnHint事件發生時幫助提示才出現。因此，即使TApplication的Hint屬性被賦予狀態列的標題，例如狀態列控制元件的標題顯示Hint屬性的當前字串值，也應歸於OnHint事件。

Hint字串包括兩部分：短提示和長提示。短提示用於簡潔的彈出提示；長提示與短提示之間用豎線"|"隔開，用於在狀態列中顯示較詳細的提示資訊。可以使用單元 Controls中提供的字串函式GetShortHint和GetLongHint從Hint屬性中分解得到短提示和長提示。

注意：當應用程式透過設定Hint屬性向使用者提供某一事件發生的資訊時應當切記，預設情況下，當滑鼠移動經過某一控制元件時，Hint字串被複位到該控制元件的Hint屬性值。

1．7屬性HintHPause

屬性HintHidePause 指定了滑鼠尚未從控制元件或選單項上移開、在隱藏幫助提示之前的時間間隔。定義如下：

　　property HintHidePause: Integer;

用HintHidePause以毫秒為單位指定等待時間，在TApplication 的構造器中該屬性被置為2500毫秒(2.5秒)。控制元件或選單項的幫助提示在Hint屬性中指定。

注意：預設應將HintHidePause的值預先確定為HintPause屬性值的3到5倍較合適。

1．8屬性MainFo

　　屬性MainForm唯一標識了應用程式的主窗體。定義如下：

　　property MainForm: TForm;

屬性MainForm指定的窗體不一定等同於應用程式的主視窗。屬性MainForm的值一定是由方法CreateForm建立的所有窗體中的第一個窗體，但該窗體未必是應用程式的主視窗。新建一個工程時，MainForm屬性值自動置為Form1。在設計時可透過Project|Options對話方塊中的Forms頁面在多個窗體中指定其中之一為MainForm。在執行時是不能修改MainForm屬性的，因為該屬性是隻讀的。主窗體是應用程式主題建立的第一個窗體。主窗體關閉即應用程式終止。在應用程式中，可以呼叫方法Application.MainForm.Close來終止應用程式執行，可以獲取Application.MainForm.Top、Application.MainForm.Left 等屬性的值從而確定當前活動視窗的位置以及尺寸等。

1．9屬性ShowMainForm

　　屬性ShowMainForm確定了是否在應用程式啟動時顯示主窗體。定義如下：

　　property ShowMainForm: Boolean;

應用程式用ShowMainForm屬性控制是否以及何時顯示其主窗體。TApplication的構造器置ShowMainForm為True。預設情況下主窗體將被顯示，MainForm屬性中指明瞭主窗體。

如果需要在應用程式啟動時隱藏主窗體，那麼應在主工程檔案中呼叫 Application.Run之前置ShowMainForm為False，並且確信主窗體的Visible屬性值為False。這在許多實現OLE自動化是很有用的，比如在啟動自動化服務時隱藏伺服器程式的主窗體。

另外，如果需要在應用程式啟動時顯示一個閃出圖片(Flash) 併為應用程式的環境做一些準備，同時需要禁止主窗體顯示，這也可以利用屬性ShowMainForm來實現。比如Delphi啟動時就禁止了主窗體的顯示。

1．10屬性Tenated

　　屬性Terminated報告程式是否收到終止程式的Windows訊息WM_QUIT。定義如下：

　　property Terminated: Boolean;

Terminated是隻讀屬性。該屬性主要用於呼叫ProcessMessages 方法時應用程式不必在停止後試圖處理Windows 訊息。當ProcessMessages方法收到訊息WM_QUIT時，Terminated將被置為True。

　　Delphi應用程式總會因為主窗體或應用程式關閉，或者因為Terminate 方法被呼叫而收到訊息WM_QUIT。

　　當應用程式執行強度較大、佔用系統資源較多的運算時，應當週期性地呼叫Applicati-on.ProcessMessages方法，並檢查屬性Application.Terminated以確定是否需要終止運算從而終止應用程式。

1．11屬性UpdateFormatSettings

屬性UpdateFormatSettings指明瞭當使用者改變系統時應用程式是否自動格式設定。定義如下：

　　property UpdateFormatSettings: Boolean;

　　使用UpdateFormatSettings屬性應用程式可以控制自動更新格式設定。TApplication的構造器置該屬性為True。當應用程式收到訊息WM_WININICHANGE時將檢查UpdateFormatSett-ings屬性。建議使用預設的格式設定，也就是Windows本地的設定。可以置UpdateFormatSe-ttings為False以避免在Delphi應用程式執行期間改變格式設定。

1．12屬性UpdateMetricSettings

屬性UpdateMetricSettings屬性指明是否對提示視窗字型和圖示標題等相關設定進行更新。定義如下：

　　property UpdateMetricSettings: Boolean;

　　UpdateFormatSettings屬性指明系統中提示視窗字型和圖示標題等設定改變是否反映到應用程式中相關設定的改變。TApplication的構造器置UpdateMetricSettings的初始值為True。

2、方法

2．1方法BringToFront

方法BringToFront設定應用程式中最近一次的活動視窗到桌面上所有視窗的最前端。其定義如下：

　　procedure BringToFront;

　　用BringToFront方法可以找到屬於主窗體的最近一次的活動視窗並且將其置於最前端。BringToFront方法也可以測試和檢視一個視窗在成為最前端視窗之前是否是可見 (Visible) 和有效的(Enabled) 。 例如，當應用程式收到時，可能需要將專門的處理程式啟用並置於Windows 桌面的最前端。這時就可以呼叫Application.BringToFront方法來實現。

2．2方法CreateForm

　　方法CreateForm方法用於建立新的窗體(form)。定義如下：

　　procedure CreateForm(FormClass: TFormClass; var Reference);

Delphi應用程式總會呼叫CreateForm方法。因此程式設計師很少有必要直接呼叫CreateForm方法。一個典型的Delphi工程在工程的主體程式碼部分包括一處或多處呼叫CreateForm方法，並且在使用窗體設計器時自動控制窗體的建立。也可以在執行時可以呼叫CreateForm方法來動態建立窗體。CreateForm方法根據FormClass 引數建立一個新的指定的窗體並且將窗體賦予到變數引數Reference。 新建立的窗體的所有者就是物件Application。 應用程式將第一個呼叫CreateForm 建立的窗體預設為工程的主窗體。

2．3方法HandleException

　　方法HandleException為應用程式的異常提供預設的控制程式碼。定義如下：

　　procedure HandleException(Sender: T);

方法HandleException 對於編寫特定的作者來說是很有用的，因為它可以產生一個不必對Windows 訊息產生響應的事件。在應用程式中可以利用OnException 事件控制程式碼將其它的異常操作控制在自定義的程式碼中。在應用程式程式碼中，如果異常跳過了所有的try 塊，那麼應用程式將自動呼叫HandleE-xception方法，並將顯示一個提示有錯誤發生的對話方塊。除非異常物件是EAbort，此時Han-dleException將呼叫OnException控制程式碼(如果存在)，否則將呼叫ShowException顯示一個提示有錯誤發生的對話方塊。

2．4方法UnhookMainWindow

UnhookMainWindow方法用於釋放由HookMainWindow方法掛在主窗體的程式。定義如下：

　　type TWindowHook = function(var Message: TMessage): Boolean of object;

　　procedure UnhookMainWindow(Hook: TWindowHook);

用UnhookMainWindow可以釋放掛鉤視窗。在引數Hook中指明對話方塊過程。　　TwindowHook 型別是呼叫HookMainWindow方法的引數。該引數是非Delphi對話方塊中呼叫對話程式的方法指標。對話程式與視窗程式相似，都是為對話方塊處理訊息，只是語法不同。

3、事件

3．1事件OnActivate

　　當應用程式成為活動狀態時OnActivate事件發生。定義如下：

　　type TNotifyEvent = procedure (Sender: TObject) of object;

　　property OnActivate: TNotifyEvent;

用OnActive事件編寫一個事件控制程式碼來完成當應用程式成為活動狀態時指定特別的處理。當一個Windows 應用程式最初執行時或其焦點從另一個Windows 應用程式轉移回到當前應用程式時，該應用程式成為活動狀態。

3．2事件OnDeactivate

　　當應用程式成為非活動狀態時OnDeactivate事件發生。定義如下：

　　type TNotifyEvent = procedure (Sender: TObject) of object;

　　property OnDeactivate: TNotifyEvent;

在應用程式成為非活動狀態之前可以立即觸發OnDeactive事件，從而完成在該事件控制程式碼中指定的特別處理。當使用者從當前應用程式轉換到另一應用程式時，當前應用程式的OnDeactive事件即發生。

3．3事件OnException

　　當應用程式中的某個無控制程式碼的異常發生時事件OnException發生。定義如下：

　　type TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;

　　property OnException: TExceptionEvent;

　　可以透過OnException 事件來改變在應用程式中無控制程式碼的異常發生時的預設動作。在方法TApplication.HandleException方法中，OnException 事件控制程式碼被自動呼叫。

　　OnException 事件僅用於處理在進行訊息處理時發生的異常。在Application.Run 執行前或執行後發生的異常不會導致OnException事件發生。

　　如果某個異常在應用程式程式碼的try 塊中被忽略，那麼應用程式將自動呼叫HandleException方法。除非異常物件是EAbort，此時HandleException 將呼叫OnException控制程式碼(如果存在)， 否則將呼叫ShowException 顯示一個提示有錯誤發生的對話方塊。TExceptionEvent型別是OnException事件的型別，該型別在應用程式中指向一個處理異常的方法。引數Sender是引發異常的物件，而引數E 是異常物件。

3．4事件OnHelp

　　當應用程式收到幫助請求時OnHelp事件發生。定義如下：

type THelpEvent = function (Command: ; Data: Longint; var CallHelp: Boolean): Boolean of object;

　　property OnHelp: THelpEvent;

　　用OnHelp編寫一個事件控制程式碼以完成有請求幫助時特別的處理。HelpContext方法和HelpJump方法自動引發OnHelp事件。在事件發生之後置CallHelp為True使VCL呼叫WinHelp；置CallHelp為False以防止VCL呼叫WinHelp。 Delphi應用程式中所有與幫助有關的方法都經過OnHelp事件。僅當OnHelp事件中的CallHelp引數返回True或OnHelp事件沒有被指定到有效的控制程式碼時，WinHelp被呼叫。

3．5事件OnHint

當滑鼠指標移動經過某個控制元件或選單項並且該控制元件或選單項能夠顯示幫助提示時，事件OnHint發生。定義如下：

　　type TNotifyEvent = procedure (Sender: TObject) of object;

　　property OnHint: TNotifyEvent;

　　用OnHint編寫的事件控制程式碼能夠在OnHint事件發生時執行指定的操作。當使用者停放滑鼠指標在某個控制元件上，並且該控制元件的Hint屬性值不是空串(')，這時OnHint事件將發生。通常用OnHint事件顯示控制元件或選單項Hint屬性的值作為某個皮膚控制元件(如TStatar)的標題，因此把皮膚(panel) 用作狀態列(status bar)。當OnHint事件發生時，Hint屬性通常被指定為一個幫助提示(Help Hint)和一個在別處顯示的長提示(longer hint)。

3．6事件OnIdle

　　當應用程式成為空閒狀態時OnIdle事件發生。定義如下：

　　type TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object;

　　property OnIdle: TIdleEvent

　　用OnIdel編寫一個事件控制程式碼當應用程式空閒時完成指定的操作。當應用程式不執行任何程式碼時即為空閒的。例如，當應用程式等待使用者輸入時該應用程式是空閒的。　　TIdelEvent型別是OnIdel事件的型別，它指向一個當應用程式空閒時執行的方法。物件TIdelEvent有一個預設為True的布而變數Done。當Done為True時，Windows API 函式WaitMessage將在OnIdel返回時被呼叫。WaitMessage 使其它應用程式得到控制焦點直到應用程式的訊息佇列中出現一條新的訊息。當引數Done為False 且應用程式不忙時，應用程式不會使其它應用程式得到控制焦點。當應用程式轉為空閒狀態時，OnIdel事件僅發生一次，直到引數Done置為True才可能發生下一次OnIdel事件。應用程式置Done為False消除了紊亂的時間計數，而該計數可能影響整個系統的。

3．7事件OnMessage

  當應用程式收到WINDOWS訊息時產生，定義如下：

  type  TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object;

  property OnMessage: TmessageEvent

  用於接收WINDOWS訊息，該事件能接收程式向WINDOWS傳送的所有訊息。應用程式接收到一個訊息時產生該事件。變數Msg是WINDOWS訊息型別。