Delphi中關(guān)于TApplication類(lèi)的詳解
TApplication是Delphi應用程序的類(lèi)型，該類(lèi)是從TComponent繼承，在單元Forms中聲明。并且在Forms中有個(gè)公用的對象Application。其方法和屬性集中包括了 Windows操作系統中創(chuàng )建、運行和銷(xiāo)毀應用程序等既定的基本操作和屬性，因此在用Delphi編寫(xiě) Windows應用程序時(shí)簡(jiǎn)化了用戶(hù)和Windows環(huán)境之間的接口。TApplication封裝了以下四個(gè)功能：
1、Windows消息處理。
2、菜單加速和鍵盤(pán)處理。
3、異常處理。
4、上下文聯(lián)機幫助。
下面就向大家介紹TApplication中的常用屬性、方法和事件。
1、屬性
1． 1屬性Active
屬性Active指明了應用程序是否處于活動(dòng)狀態(tài)且擁有焦點(diǎn)。定義如下：
property Active: Boolean;
Active是只讀屬性。當應用程序是活動(dòng)狀態(tài)時(shí)Active為True，否則為False。TApplica-tion的構造器(constructor) 置Active為True。如果窗口或應用程序擁有焦點(diǎn)，那么該應用程序是活動(dòng)的。當其它應用程序的窗口成為活的時(shí)，當前應用程序即為非活動(dòng)的。應用程序關(guān)閉時(shí)TApplication的析構器(destructor) 置Active為False。
在應用程序中，可以用一個(gè)計時(shí)器(TTimer)來(lái)檢查屬性Active的值，從而確定當前的應用程序是否是活動(dòng)狀態(tài)，以便作出相應的處理。也可以在事件OnActive和事件OnDeactive中定義指定的操作。
1．2屬性DialogHandle
屬性DialogHandle提供使Delphi應用程序使用非Delphi對話(huà)框的一種機制。定義如下：
property DialogHandle: HWnd;
當使用API函數CreateDialog創(chuàng )建一個(gè)非模式化對話(huà)框時(shí)需要使用 DialogHandle，并且需要查看應用程序消息循環(huán)中的消息以進(jìn)行相應的操作。比如，當一個(gè)非模式化對話(huà)框收到一條激活消息(WM_NCACTIVATE)時(shí)可以將其句柄賦值到 DialogHandle，當對話(huà)框收到一條解除激活消息時(shí)置DialogHandle為0。
1．3屬性ExeName
屬性ExeName包含了可執行的應用程序文件名極其路徑信息。定義如下：
property ExeName: string;
ExeName是只讀屬性。使用ExeName能夠得到應用程序可執行文件的文件名。
這是一個(gè)很有用的屬性。例如，運行光盤(pán)中的應用程序 f:\media\myapp.exe 時(shí)，可能需要訪(fǎng)問(wèn)目錄 f:\media\data\ 中的文件或者確定應用程序所在的驅動(dòng)器盤(pán)符。 這時(shí)可以使用Delphi提供的函數ExtractFilePath和ExtractFileName對屬性ExeName 進(jìn)行解析，從而得到需要的信息。
1．4屬性Handle
屬性Handle提供了對應用程序主窗口句柄的訪(fǎng)問(wèn)。定義如下：
property Handle: HWND;
當調用一個(gè)需要父窗口句柄的 Windows API函數時(shí)需要使用Handle屬性。例如，應用程序中某個(gè)動(dòng)態(tài)鏈接庫(DLL) 可能需要父窗口句柄以使得其自身能夠彈出并且顯示在最前端。使用Application.Handle構成應用程序的若干窗口，使得這些窗口在應用程序中能夠被最小化、恢復、有效或無(wú)效。注意：編寫(xiě)一個(gè)使用 VCL窗體的動(dòng)態(tài)鏈接庫時(shí)，應將主運行程序中主窗口的句柄賦值到該動(dòng)態(tài)鏈接庫的Application.Handle屬性。這樣就使得動(dòng)態(tài)鏈接庫的窗體成為主應用程序的一部分。需要特別指出的是，永遠不要在EXE應用程序中給Application.Handle賦值。
1．5屬性HelpFile
屬性HelpFile指明了應用程序用于顯示幫助內容的文件名。定義如下：
property HelpFile: string;
使用HelpFile是為了應用程序擁有一個(gè)使用標準Windows幫助系統的幫助文件。Windows顯示由HelpFile屬性指明的幫助文件。要讓?xiě)贸绦驅?shí)現這一點(diǎn)，必須在運行時(shí)為HelpFile屬性賦予一個(gè)文件名的值，或者在設計時(shí)Project|Options對話(huà)框的Application頁(yè)面中指定一個(gè)幫助文件。默認情況下，HelpFile是一個(gè)空串(‘‘)，并且應用程序的幫助方法忽略所有的試圖顯示幫助。如果HelpFile包括任何內容，幫助主題的方法將根據文件名調出 Windows幫助系統以提供聯(lián)機幫助。
注意：如果活動(dòng)窗口的幫助文件已指定，則該文件將優(yōu)先于應用程序的幫助文件顯示。
1．6屬性Hint
屬性Hint指明了出現在幫助提示框(Help Hint box)中的文本字符串。定義如下：
property Hint: string;
TApplication.Hint屬性就是鼠標正在移動(dòng)經(jīng)過(guò)的控件或菜單項的 Hint值。該屬性也能被賦予一個(gè)向用戶(hù)提供動(dòng)作、錯誤或其它信息的字符串值。因此，使用Hint屬性也能夠：從控件傳遞提示信息到另一顯示區，例如通過(guò)OnHint事件句柄將提示顯示到狀態(tài)欄中。這時(shí)是讀取Hint屬性。當應用程序正在進(jìn)行某一動(dòng)作時(shí)簡(jiǎn)要描述其狀態(tài)。這時(shí)是設置Hint屬性。當OnHint事件發(fā)生時(shí)幫助提示才出現。因此，即使TApplication的Hint屬性被賦予狀態(tài)欄的標題，例如狀態(tài)欄控件的標題顯示Hint屬性的當前字符串值，也應歸于OnHint事件。
Hint字符串包括兩部分：短提示和長(cháng)提示。短提示用于簡(jiǎn)潔的彈出提示；長(cháng)提示與短提示之間用豎線(xiàn)"|"隔開(kāi)，用于在狀態(tài)欄中顯示較詳細的提示信息?？梢允褂脝卧?/span> Controls中提供的字符串函數GetShortHint和GetLongHint從Hint屬性中分解得到短提示和長(cháng)提示。
注意：當應用程序通過(guò)設置Hint屬性向用戶(hù)提供某一事件發(fā)生的信息時(shí)應當切記，默認情況下，當鼠標移動(dòng)經(jīng)過(guò)某一控件時(shí)，Hint字符串被復位到該控件的Hint屬性值。
1．7屬性HintHidePause
屬性HintHidePause 指定了鼠標尚未從控件或菜單項上移開(kāi)、在隱藏幫助提示之前的時(shí)間間隔。定義如下：
property HintHidePause: Integer;
用HintHidePause以毫秒為單位指定等待時(shí)間，在TApplication 的構造器中該屬性被置為2500毫秒(2.5秒)?？丶虿藛雾椀膸椭崾驹?/span>Hint屬性中指定。
注意：默認應將HintHidePause的值預先確定為HintPause屬性值的3到5倍較合適。
1．8屬性MainForm
屬性MainForm唯一標識了應用程序的主窗體。定義如下：
property MainForm: TForm;
屬性MainForm指定的窗體不一定等同于應用程序的主窗口。屬性MainForm的值一定是由方法CreateForm創(chuàng )建的所有窗體中的第一個(gè)窗體，但該窗體未必是應用程序的主窗口。新建一個(gè)工程時(shí)，MainForm屬性值自動(dòng)置為Form1。在設計時(shí)可通過(guò)Project|Options對話(huà)框中的Forms頁(yè)面在多個(gè)窗體中指定其中之一為MainForm。在運行時(shí)是不能修改MainForm屬性的，因為該屬性是只讀的。主窗體是應用程序主題創(chuàng )建的第一個(gè)窗體。主窗體關(guān)閉即應用程序終止。在應用程序中，可以調用方法Application.MainForm.Close來(lái)終止應用程序運行，可以獲取Application.MainForm.Top、Application.MainForm.Left 等屬性的值從而確定當前活動(dòng)窗口的位置以及尺寸等。
1．9屬性ShowMainForm
屬性ShowMainForm確定了是否在應用程序啟動(dòng)時(shí)顯示主窗體。定義如下：
property ShowMainForm: Boolean;
應用程序用ShowMainForm屬性控制是否以及何時(shí)顯示其主窗體。TApplication的構造器置ShowMainForm為True。默認情況下主窗體將被顯示，MainForm屬性中指明了主窗體。
如果需要在應用程序啟動(dòng)時(shí)隱藏主窗體，那么應在主工程文件中調用 Application.Run之前置ShowMainForm為False，并且確信主窗體的Visible屬性值為False。這在許多實(shí)現OLE自動(dòng)化服務(wù)器是很有用的，比如在啟動(dòng)自動(dòng)化服務(wù)時(shí)隱藏服務(wù)器程序的主窗體。
另外，如果需要在應用程序啟動(dòng)時(shí)顯示一個(gè)閃出圖片(Flash) 并為應用程序的環(huán)境做一些準備，同時(shí)需要禁止主窗體顯示，這也可以利用屬性ShowMainForm來(lái)實(shí)現。比如Delphi啟動(dòng)時(shí)就禁止了主窗體的顯示。
1．10屬性Terminated
屬性Terminated報告程序是否收到終止程序的Windows消息WM_QUIT。定義如下：
property Terminated: Boolean;
Terminated是只讀屬性。該屬性主要用于調用ProcessMessages 方法時(shí)應用程序不必在停止后試圖處理Windows 消息。當ProcessMessages方法收到消息WM_QUIT時(shí)，Terminated將被置為True。
Delphi應用程序總會(huì )因為主窗體或應用程序關(guān)閉，或者因為Terminate 方法被調用而收到消息WM_QUIT。
當應用程序執行強度較大、占用系統資源較多的運算時(shí)，應當周期性地調用Applicati-on.ProcessMessages方法，并檢查屬性Application.Terminated以確定是否需要終止運算從而終止應用程序。
1．11屬性UpdateFormatSettings
屬性UpdateFormatSettings指明了當用戶(hù)改變系統配置時(shí)應用程序是否自動(dòng)更新格式設置。定義如下：
property UpdateFormatSettings: Boolean;
使用UpdateFormatSettings屬性應用程序可以控制自動(dòng)更新格式設置。TApplication的構造器置該屬性為True。當應用程序收到消息WM_WININICHANGE時(shí)將檢查UpdateFormatSett-ings屬性。建議使用默認的格式設置，也就是Windows本地的設置?？梢灾?/span>UpdateFormatSe-ttings為False以避免在Delphi應用程序執行期間改變格式設置。
1．12屬性UpdateMetricSettings
屬性UpdateMetricSettings屬性指明是否對提示窗口字體和圖標標題等相關(guān)設置進(jìn)行更新。定義如下：
property UpdateMetricSettings: Boolean;
UpdateFormatSettings屬性指明系統中提示窗口字體和圖標標題等設置改變是否反映到應用程序中相關(guān)設置的改變。TApplication的構造器置UpdateMetricSettings的初始值為True。
2、方法
2．1方法BringToFront
方法BringToFront設置應用程序中最近一次的活動(dòng)窗口到桌面上所有窗口的最前端。其定義如下：
procedure BringToFront;
用BringToFront方法可以找到屬于主窗體的最近一次的活動(dòng)窗口并且將其置于最前端。BringToFront方法也可以測試和查看一個(gè)窗口在成為最前端窗口之前是否是可見(jiàn) (Visible) 和有效的(Enabled) 。 例如，當應用程序收到郵件時(shí)，可能需要將專(zhuān)門(mén)的處理程序激活并置于Windows 桌面的最前端。這時(shí)就可以調用Application.BringToFront方法來(lái)實(shí)現。
2．2方法CreateForm
方法CreateForm方法用于創(chuàng )建新的窗體(form)。定義如下：
procedure CreateForm(FormClass: TFormClass; var Reference);
Delphi應用程序總會(huì )調用CreateForm方法。因此程序員很少有必要直接調用CreateForm方法。一個(gè)典型的Delphi工程在工程的主體代碼部分包括一處或多處調用CreateForm方法，并且在使用窗體設計器時(shí)自動(dòng)控制窗體的創(chuàng )建。也可以在運行時(shí)可以調用CreateForm方法來(lái)動(dòng)態(tài)創(chuàng )建窗體。CreateForm方法根據FormClass 參數創(chuàng )建一個(gè)新的指定的窗體并且將窗體賦予到變量參數Reference。 新創(chuàng )建的窗體的所有者就是對象Application。 應用程序將第一個(gè)調用CreateForm 創(chuàng )建的窗體默認為工程的主窗體。
2．3方法HandleException
方法HandleException為應用程序的異常提供默認的句柄。定義如下：
procedure HandleException(Sender: TObject);
方法HandleException 對于編寫(xiě)特定組件的作者來(lái)說(shuō)是很有用的，因為它可以產(chǎn)生一個(gè)不必對Windows 消息產(chǎn)生響應的事件。在應用程序中可以利用OnException 事件句柄將其它的異常操作控制在自定義的代碼中。在應用程序代碼中，如果異常跳過(guò)了所有的try 塊，那么應用程序將自動(dòng)調用HandleE-xception方法，并將顯示一個(gè)提示有錯誤發(fā)生的對話(huà)框。除非異常對象是EAbort，此時(shí)Han-dleException將調用OnException句柄(如果存在)，否則將調用ShowException顯示一個(gè)提示有錯誤發(fā)生的對話(huà)框。
2．4方法UnhookMainWindow
UnhookMainWindow方法用于釋放由HookMainWindow方法掛在主窗體的程序。定義如下：
type TWindowHook = function(var Message: TMessage): Boolean of object;
procedure UnhookMainWindow(Hook: TWindowHook);
用UnhookMainWindow可以釋放掛鉤窗口。在參數Hook中指明對話(huà)框過(guò)程?！ ?/span>TwindowHook 類(lèi)型是調用HookMainWindow方法的參數。該參數是非Delphi對話(huà)框中調用對話(huà)程序的方法指針。對話(huà)程序與窗口程序相似，都是為對話(huà)框處理消息，只是語(yǔ)法不同。
3、事件
3．1事件OnActivate
當應用程序成為活動(dòng)狀態(tài)時(shí)OnActivate事件發(fā)生。定義如下：
type TNotifyEvent = procedure (Sender: TObject) of object;
property OnActivate: TNotifyEvent;
用OnActive事件編寫(xiě)一個(gè)事件句柄來(lái)完成當應用程序成為活動(dòng)狀態(tài)時(shí)指定特別的處理。當一個(gè)Windows 應用程序最初運行時(shí)或其焦點(diǎn)從另一個(gè)Windows 應用程序轉移回到當前應用程序時(shí)，該應用程序成為活動(dòng)狀態(tài)。
3．2事件OnDeactivate
當應用程序成為非活動(dòng)狀態(tài)時(shí)OnDeactivate事件發(fā)生。定義如下：
type TNotifyEvent = procedure (Sender: TObject) of object;
property OnDeactivate: TNotifyEvent;
在應用程序成為非活動(dòng)狀態(tài)之前可以立即觸發(fā)OnDeactive事件，從而完成在該事件句柄中指定的特別處理。當用戶(hù)從當前應用程序轉換到另一應用程序時(shí)，當前應用程序的OnDeactive事件即發(fā)生。
3．3事件OnException
當應用程序中的某個(gè)無(wú)句柄的異常發(fā)生時(shí)事件OnException發(fā)生。定義如下：
type TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
property OnException: TExceptionEvent;
可以通過(guò)OnException 事件來(lái)改變在應用程序中無(wú)句柄的異常發(fā)生時(shí)的默認動(dòng)作。在方法TApplication.HandleException方法中，OnException 事件句柄被自動(dòng)調用。
OnException 事件僅用于處理在進(jìn)行消息處理時(shí)發(fā)生的異常。在Application.Run 執行前或執行后發(fā)生的異常不會(huì )導致OnException事件發(fā)生。
如果某個(gè)異常在應用程序代碼的try 塊中被忽略，那么應用程序將自動(dòng)調用HandleException方法。除非異常對象是EAbort，此時(shí)HandleException 將調用OnException句柄(如果存在)， 否則將調用ShowException 顯示一個(gè)提示有錯誤發(fā)生的對話(huà)框。TExceptionEvent類(lèi)型是OnException事件的類(lèi)型，該類(lèi)型在應用程序中指向一個(gè)處理異常的方法。參數Sender是引發(fā)異常的對象，而參數E 是異常對象。
3．4事件OnHelp
當應用程序收到幫助請求時(shí)OnHelp事件發(fā)生。定義如下：
type THelpEvent = function (Command: Word; Data: Longint; var CallHelp: Boolean): Boolean of object;
property OnHelp: THelpEvent;
用OnHelp編寫(xiě)一個(gè)事件句柄以完成有請求幫助時(shí)特別的處理。HelpContext方法和HelpJump方法自動(dòng)引發(fā)OnHelp事件。在事件發(fā)生之后置CallHelp為True使VCL調用WinHelp；置CallHelp為False以防止VCL調用WinHelp。 Delphi應用程序中所有與幫助有關(guān)的方法都經(jīng)過(guò)OnHelp事件。僅當OnHelp事件中的CallHelp參數返回True或OnHelp事件沒(méi)有被指定到有效的句柄時(shí)，WinHelp被調用。
3．5事件OnHint
當鼠標指針移動(dòng)經(jīng)過(guò)某個(gè)控件或菜單項并且該控件或菜單項能夠顯示幫助提示時(shí)，事件OnHint發(fā)生。定義如下：
type TNotifyEvent = procedure (Sender: TObject) of object;
property OnHint: TNotifyEvent;
用OnHint編寫(xiě)的事件句柄能夠在OnHint事件發(fā)生時(shí)執行指定的操作。當用戶(hù)停放鼠標指針在某個(gè)控件上，并且該控件的Hint屬性值不是空串(‘‘)，這時(shí)OnHint事件將發(fā)生。通常用OnHint事件顯示控件或菜單項Hint屬性的值作為某個(gè)面板控件(如TStatusBar)的標題，因此把面板(panel) 用作狀態(tài)欄(status bar)。當OnHint事件發(fā)生時(shí)，Hint屬性通常被指定為一個(gè)幫助提示(Help Hint)和一個(gè)在別處顯示的長(cháng)提示(longer hint)。
3．6事件OnIdle
當應用程序成為空閑狀態(tài)時(shí)OnIdle事件發(fā)生。定義如下：
type TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object;
property OnIdle: TIdleEvent
用OnIdel編寫(xiě)一個(gè)事件句柄當應用程序空閑時(shí)完成指定的操作。當應用程序不執行任何代碼時(shí)即為空閑的。例如，當應用程序等待用戶(hù)輸入時(shí)該應用程序是空閑的?！ ?/span>TIdelEvent類(lèi)型是OnIdel事件的類(lèi)型，它指向一個(gè)當應用程序空閑時(shí)運行的方法。對象TIdelEvent有一個(gè)默認為True的布而變量Done。當Done為True時(shí)，Windows API 函數WaitMessage將在OnIdel返回時(shí)被調用。WaitMessage 使其它應用程序得到控制焦點(diǎn)直到應用程序的消息隊列中出現一條新的消息。當參數Done為False 且應用程序不忙時(shí)，應用程序不會(huì )使其它應用程序得到控制焦點(diǎn)。當應用程序轉為空閑狀態(tài)時(shí)，OnIdel事件僅發(fā)生一次，直到參數Done置為True才可能發(fā)生下一次OnIdel事件。應用程序置Done為False消除了紊亂的CPU時(shí)間計數，而該計數可能影響整個(gè)系統的性能。
3．7事件OnMessage
當應用程序收到WINDOWS消息時(shí)產(chǎn)生，定義如下：
type TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object;
property OnMessage: TmessageEvent
用于接收WINDOWS消息，該事件能接收程序向WINDOWS發(fā)送的所有消息。應用程序接收到一個(gè)消息時(shí)產(chǎn)生該事件。變量Msg是WINDOWS消息類(lèi)型。
聯(lián)系客服
