TApplication是用於Delphi應用程序的類型，該類在單元forms中聲明。TApplication是Delphi構造 Windows應用程序所需的類型，其方法和屬性集中包括了Windows操作系統中創建、運行和銷毀應用程序等既定的基本操作和屬性，因此在用Delphi編寫 Windows應用程序時簡化了用戶和Windows環境之間的接口。TApplication封裝了以下功能：
1、Windows消息處理。
2、上下文聯機幫助。
3、菜單加速和鍵盤處理。
4、異常處理。
5、管理由Windows操作系統為應用程序定義的基本部分，如主窗口、窗口類等。

　　每個Delphi應用程序自動聲明一個 Application變量作為應用程序的實例。如果Delphi應用程序不是一個Web服務器應用程序，那麽該變量一定是TApplication類型。因此TApplication不需要出現在組件選擇板(component palette)中，並在窗體設計器(form designer)中也不能對其進行可視化操作，故TApplication不具有發布屬性(published properties)。不過，TApplication的公共屬性(public properites)在設計時(design-time)是可以設置或修改的，如在Project|Options對話框的Forms和Application頁面中。

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

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

　　property Active: Boolean;

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

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

2、屬性DialogHandle

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

　　property DialogHandle: HWnd;

　　當使用API函數CreateDialog創建一個非模式化對話框時需要使用 DialogHandle，並且需要查看應用程序消息循環中的消息以進行相應的操作。比如，當一個非模式化對話框收到一條激活消息(WM_NCACTIVATE)時可以將其句柄賦值到 DialogHandle，當對話框收到一條解除激活消息時置DialogHandle為0。

3、屬性ExeName

　　屬性ExeName包含了可執行的應用程序文件名極其路徑信息。定義如下：

　　property ExeName: string;

　　ExeName是只讀屬性。使用ExeName能夠得到應用程序可執行文件的文件名。

　　這是一個很有用的屬性。例如，運行光盤中的應用程序 f:\media\myapp.exe 時，可能需要訪問目錄 f:\media\data\ 中的文件或者確定應用程序所在的驅動器盤符。 這時可以使用Delphi提供的函數ExtractFilePath和ExtractFileName對屬性ExeName 進行解析，從而得到需要的信息。

4、屬性Handle

　　屬性Handle提供了對應用程序主窗口句柄的訪問。定義如下：

　　property Handle: HWND;

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

5、屬性HelpFile

　　屬性HelpFile指明了應用程序用於顯示幫助內容的文件名。定義如下：

　　property HelpFile: string;

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

　　註意：如果活動窗口的幫助文件已指定，則該文件將優先於應用程序的幫助文件顯示。

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屬性值。

7、屬性HintHidePause

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

　　property HintHidePause: Integer;

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

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

8、屬性MainForm

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

　　property MainForm: TForm;

　　屬性MainForm指定的窗體不一定等同於應用程序的主窗口。屬性MainForm的值一定是由方法CreateForm創建的所有窗體中的第一個窗體，但該窗體未必是應用程序的主窗口。新建一個工程時，MainForm屬性值自動置為Form1。在設計時可通過Project|Options對話框中的Forms頁面在多個窗體中指定其中之一為MainForm。

　　在運行時是不能修改MainForm屬性的，因為該屬性是只讀的。

主窗體是應用程序主題創建的第一個窗體。

主窗體關閉即應用程序終止。

　　在應用程序中，可以調用方法Application.MainForm.Close來終止應用程序運行，可以獲取Application.MainForm.Top、Application.MainForm.Left 等屬性的值從而確定當前活動窗口的位置以及尺寸等。

9、屬性ShowMainForm

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

　　property ShowMainForm: Boolean;

　　應用程序用ShowMainForm屬性控制是否以及何時顯示其主窗體。

　　TApplication的構造器置ShowMainForm為True。默認情況下主窗體將被顯示，MainForm屬性中指明了主窗體。

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

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

10、屬性Terminated

　　屬性Terminated報告應用程序是否收到終止程序的Windows消息WM_QUIT。定義如下：

　　property Terminated: Boolean;

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

　　Delphi應用程序總會因為主窗體或應用程序關閉，或者因為Terminate 方法被調用而收到消息WM_QUIT。

　　當應用程序執行強度較大、占用系統資源較多的運算時，應當周期性地調用Application.ProcessMessages方法，並檢查屬性Application.Terminated以確定是否需要終止運算從而終止應用程序。

11、屬性UpdateFormatSettings

　　屬性UpdateFormatSettings指明了當用戶改變系統配置時應用程序是否自動更新格式設置。定義如下：

　　property UpdateFormatSettings: Boolean;

　　UpdateFormatSettings屬性指明系統中提示窗口字體和圖標標題等設置改變是否反映到應用程序中相關設置的改變。

TApplication的構造器置UpdateMetricSettings的初始值為True。

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

12、方法BringToFront

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

　　procedure BringToFront;

　　用BringToFront方法可以找到屬於主窗體的最近一次的活動窗口並且將其置於最前端。

BringToFront方法也可以測試和查看一個窗口在成為最前端窗口之前是否是可見 (Visible) 和有效的(Enabled) 。

　　例如，當應用程序收到郵件時，可能需要將專門的處理程序激活並置於Windows 桌面的最前端。這時就可以調用Application.BringToFront方法來實現。

13、方法CreateForm

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

　　procedure CreateForm(FormClass: TFormClass; var Reference);

　　Delphi應用程序總會調用CreateForm方法。因此程序員很少有必要直接調用CreateForm方法。一個典型的Delphi工程在工程的主體代碼部分包括一處或多處調用CreateForm方法，並且在使用窗體設計器時自動控制窗體的創建。也可以在運行時可以調用CreateForm方法來動態創建窗體。

　　CreateForm方法根據FormClass 參數創建一個新的指定的窗體並且將窗體賦予到變量參數Reference。 新創建的窗體的所有者就是對象Application。 應用程序將第一個調用CreateForm 創建的窗體默認為工程的主窗體。

14、方法HandleException

　　方法HandleException為應用程序的異常提供默認的句柄。定義如下：

　　procedure HandleException(Sender: TObject);

　　方法HandleException 對於編寫特定組件的作者來說是很有用的，因為它可以產生一個不必對Windows 消息產生響應的事件。在應用程序中可以利用OnException 事件句柄將其它的異常操作控制在自定義的代碼中。

　　在應用程序代碼中，如果異常跳過了所有的try 塊，那麽應用程序將自動調用HandleException方法，並將顯示一個提示有錯誤發生的對話框。除非異常對象是EAbort，此時HandleException將調用OnException句柄(如果存在)，否則將調用ShowException顯示一個提示有錯誤發生的對話框。

15、方法UnhookMainWindow

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

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

　　procedure UnhookMainWindow(Hook: TWindowHook);

　　用UnhookMainWindow可以釋放掛鉤窗口。在參數Hook中指明對話框過程。

　　TwindowHook 類型是調用HookMainWindow方法的參數。該參數是非Delphi對話框中調用對話程序的方法指針。對話程序與窗口程序相似，都是為對話框處理消息，只是語法不同。

16、事件OnActivate

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

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

　　property OnActivate: TNotifyEvent;

　　用OnActive事件編寫一個事件句柄來完成當應用程序成為活動狀態時指定特別的處理。

　　當一個Windows 應用程序最初運行時或其焦點從另一個Windows 應用程序轉移回到當前

應用程序時，該應用程序成為活動狀態。

17、事件OnDeactivate

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

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

　　property OnDeactivate: TNotifyEvent;

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

18、事件OnException

　　當應用程序中的某個無句柄的異常發生時事件OnException發生。定義如下：

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

　　property OnException: TExceptionEvent;

　　可以通過OnException 事件來改變在應用程序中無句柄的異常發生時的默認動作。在方法TApplication.HandleException方法中，OnException 事件句柄被自動調用。

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

　　如果某個異常在應用程序代碼的try 塊中被忽略，那麽應用程序將自動調用HandleExc
eption方法。除非異常對象是EAbort，此時HandleException 將調用OnException句柄(如果存在)， 否則將調用ShowException 顯示一個提示有錯誤發生的對話框。

　　TExceptionEvent類型是OnException事件的類型，該類型在應用程序中指向一個處理異常的方法。參數Sender是引發異常的對象，而參數E 是異常對象。

19、事件OnHelp

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

　　type THelpEvent = function (Command: Word; 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被調用。

20、事件OnHint

　　當鼠標指針移動經過某個控件或菜單項並且該控件或菜單項能夠顯示幫助提示時，事件

OnHint發生。定義如下：

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

　　property OnHint: TNotifyEvent;

　　用OnHint編寫的事件句柄能夠在OnHint事件發生時執行指定的操作。當用戶停放鼠標指針在某個控件上，並且該控件的Hint屬性值不是空串(‘‘)，這時OnHint事件將發生。

　　通常用OnHint事件顯示控件或菜單項Hint屬性的值作為某個面板控件(如TStatusBar)的標題，因此把面板(panel) 用作狀態欄(status bar)。當OnHint事件發生時，Hint屬性通常被指定為一個幫助提示(Help Hint)和一個在別處顯示的長提示(longer hint)。

21、事件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消除了紊亂的CPU時間計數，而該計數可能影響整個系統的性能。

22、OnMessage

　　當應用程序接收到Windows消息時事件OnMessage觸發，定義如下：

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

　　preperty OnMessage: TMessageEvent

　　用於接收Windows消息，該事件能接收程序向Windows發送的所有消息。應用程序接收到一個消息時觸發該事件。變量Msg是Windows消息類型。

（本文出自 Delphi面向對象編程思想 劉藝）

Delphi中TApplication詳解（轉僅供自己參考）