Delphi中的Application對(duì)象.doc

Delphi中的Application對(duì)象TApplication是用于Delphi應(yīng)用程序的類型，該類在單元forms中聲明。TApplication是Delphi構(gòu)造 Windows應(yīng)用程序所需的類型，其方法和屬性集中包括了 Windows操作系統(tǒng)中創(chuàng)建、運(yùn)行和銷毀應(yīng)用程序等既定的基本操作和屬性，因此在用Delphi編寫 Windows應(yīng)用程序時(shí)簡(jiǎn)化了用戶和Windows環(huán)境之間的借口。 TApplication封裝了以下功能：Windows消息處理上下文聯(lián)機(jī)幫助菜單加速和鍵盤處理異常處理管理由Windows操作系統(tǒng)為應(yīng)用程序定義的基本部分，如主窗口、窗口類等每個(gè)Delphi應(yīng)用程序自動(dòng)聲明一個(gè)Application變量作為應(yīng)用程序的實(shí)例。如果Delphi應(yīng)用程序不是一個(gè)Web服務(wù)器應(yīng)用程序，那么該變量一定是TApplication類型。因此TAppli-cation不需要出現(xiàn)在組件選擇板(component palette)中，并在窗體設(shè)計(jì)器(form designer)中也不能對(duì)其進(jìn)行可視化操作，故TApplication不具有發(fā)布屬性(published properties)。不過(guò)，TApplication的公共屬性(public properites)在設(shè)計(jì)時(shí)(design-time)是可以設(shè)置或修改的，如在Project|Options對(duì)話框的Forms和Application頁(yè)面中下面就向大家介紹TApplication中的大部分屬性、方法和事件屬性Active屬性Active指明了應(yīng)用程序是否處于活動(dòng)狀態(tài)且擁有焦點(diǎn)。定義如下：property Active: Boolean;Active是只讀屬性。當(dāng)應(yīng)用程序是活動(dòng)狀態(tài)時(shí)Active為True，否則為False。TApplica-tion的構(gòu)造器(constructor) 置Active為True。如果窗口或應(yīng)用程序擁有焦點(diǎn)，那么該應(yīng)用程序是活動(dòng)的。當(dāng)其它應(yīng)用程序的窗口成為活的時(shí)，當(dāng)前應(yīng)用程序即為非活動(dòng)的。應(yīng)用程序關(guān)閉時(shí)TApplication的析構(gòu)器(destructor) 置Active為False在應(yīng)用程序中，可以用一個(gè)計(jì)時(shí)器(TTimer)來(lái)檢查屬性Active的值，從而確定當(dāng)前的應(yīng)用程序是否是活動(dòng)狀態(tài)，以便作出相應(yīng)的處理。也可以在事件OnActive和事件OnDeactive中定義指定的操作屬性DialogHandle屬性DialogHandle提供使Delphi應(yīng)用程序使用非Delphi對(duì)話框的一種機(jī)制。定義如下：property DialogHandle: HWnd;當(dāng)使用API函數(shù)CreateDialog創(chuàng)建一個(gè)非模式化對(duì)話框時(shí)需要使用 DialogHandle，并且需要查看應(yīng)用程序消息循環(huán)中的消息以進(jìn)行相應(yīng)的操作。比如，當(dāng)一個(gè)非模式化對(duì)話框收到一條激活消息(WM_NCACTIVATE)時(shí)可以將其句柄賦值到 DialogHandle，當(dāng)對(duì)話框收到一條解除激活消息時(shí)置DialogHandle為0屬性ExeName屬性ExeName包含了可執(zhí)行的應(yīng)用程序文件名極其路徑信息。定義如下：property ExeName: string;ExeName是只讀屬性。使用ExeName能夠得到應(yīng)用程序可執(zhí)行文件的文件名這是一個(gè)很有用的屬性。例如，運(yùn)行光盤中的應(yīng)用程序 f:mediamyapp.exe 時(shí)，可能需要訪問(wèn)目錄 f:mediadata 中的文件或者確定應(yīng)用程序所在的驅(qū)動(dòng)器盤符。 這時(shí)可以使用Delphi提供的函數(shù)ExtractFilePath和ExtractFileName對(duì)屬性ExeName 進(jìn)行解析，從而得到需要的信息屬性Handle屬性Handle提供了對(duì)應(yīng)用程序主窗口句柄的訪問(wèn)。定義如下：property Handle: HWND;當(dāng)調(diào)用一個(gè)需要父窗口句柄的 Windows API函數(shù)時(shí)需要使用Handle屬性。例如，應(yīng)用程序中某個(gè)動(dòng)態(tài)鏈接庫(kù)(DLL) 可能需要父窗口句柄以使得其自身能夠彈出并且顯示在最前端。使用Application.Handle構(gòu)成應(yīng)用程序的若干窗口，使得這些窗口在應(yīng)用程序中能夠被最小化、恢復(fù)、有效或無(wú)效。注意：編寫一個(gè)使用 VCL窗體的動(dòng)態(tài)鏈接庫(kù)時(shí)，應(yīng)將主運(yùn)行程序中主窗口的句柄賦值到該動(dòng)態(tài)鏈接庫(kù)的Application.Handle屬性。這樣就使得動(dòng)態(tài)鏈接庫(kù)的窗體成為主應(yīng)用程序的一部分。需要特別指出的是，永遠(yuǎn)不要在EXE應(yīng)用程序中給Application.Handle賦值屬性HelpFile屬性HelpFile指明了應(yīng)用程序用于顯示幫助內(nèi)容的文件名。定義如下：property HelpFile: string;使用HelpFile是為了應(yīng)用程序擁有一個(gè)使用標(biāo)準(zhǔn)Windows幫助系統(tǒng)的幫助文件。Windows顯示由HelpFile屬性指明的幫助文件。要讓應(yīng)用程序?qū)崿F(xiàn)這一點(diǎn)，必須在運(yùn)行時(shí)為HelpFile屬性賦予一個(gè)文件名的值，或者在設(shè)計(jì)時(shí)Project|Options對(duì)話框的Application頁(yè)面中指定一個(gè)幫助文件。默認(rèn)情況下，HelpFile是一個(gè)空串()，并且應(yīng)用程序的幫助方法忽略所有的試圖顯示幫助。如果HelpFile包括任何內(nèi)容，幫助主題的方法將根據(jù)文件名調(diào)出 Windows幫助系統(tǒng)以提供聯(lián)機(jī)幫助注意：如果活動(dòng)窗口的幫助文件已指定，則該文件將優(yōu)先于應(yīng)用程序的幫助文件顯示屬性Hint屬性Hint指明了出現(xiàn)在幫助提示框(Help Hint box)中的文本字符串。定義如下：property Hint:string;TApplication.Hint屬性就是鼠標(biāo)正在移動(dòng)經(jīng)過(guò)的控件或菜單項(xiàng)的 Hint值。該屬性也能被賦予一個(gè)向用戶提供動(dòng)作、錯(cuò)誤或其它信息的字符串值。因此，使用Hint屬性也能夠：從控件傳遞提示信息到另一顯示區(qū)，例如通過(guò)OnHint事件句柄將提示顯示到狀態(tài)欄中。這時(shí)是讀取Hint屬性。當(dāng)應(yīng)用程序正在進(jìn)行某一動(dòng)作時(shí)簡(jiǎn)要描述其狀態(tài)。這時(shí)是設(shè)置Hint屬性。當(dāng)OnHint事件發(fā)生時(shí)幫助提示才出現(xiàn)。因此，即使TApplication的Hint屬性被賦予狀態(tài)欄的標(biāo)題，例如狀態(tài)欄控件的標(biāo)題顯示Hint屬性的當(dāng)前字符串值，也應(yīng)歸于OnHint事件Hint字符串包括兩部分：短提示和長(zhǎng)提示。短提示用于簡(jiǎn)潔的彈出提示；長(zhǎng)提示與短提示之間用豎線|隔開(kāi)，用于在狀態(tài)欄中顯示較詳細(xì)的提示信息。可以使用單元 Controls中提供的字符串函數(shù)GetShortHint和GetLongHint從Hint屬性中分解得到短提示和長(zhǎng)提示注意：當(dāng)應(yīng)用程序通過(guò)設(shè)置Hint屬性向用戶提供某一事件發(fā)生的信息時(shí)應(yīng)當(dāng)切記，默認(rèn)情況下，當(dāng)鼠標(biāo)移動(dòng)經(jīng)過(guò)某一控件時(shí)，Hint字符串被復(fù)位到該控件的Hint屬性值 屬性HintHidePause屬性HintHidePause 指定了鼠標(biāo)尚未從控件或菜單項(xiàng)上移開(kāi)、在隱藏幫助提示之前的時(shí)間間隔。定義如下：property HintHidePause: Integer;用HintHidePause以毫秒為單位指定等待時(shí)間，在TApplication 的構(gòu)造器中該屬性被置為2500毫秒(2.5秒)?？丶虿藛雾?xiàng)的幫助提示在Hint屬性中指定注意：默認(rèn)應(yīng)將HintHidePause的值預(yù)先確定為HintPause屬性值的3到5倍較合適屬性MainForm屬性MainForm唯一標(biāo)識(shí)了應(yīng)用程序的主窗體。定義如下：property MainForm.: TForm;屬性MainForm指定的窗體不一定等同于應(yīng)用程序的主窗口。屬性MainForm的值一定是由方法CreateForm創(chuàng)建的所有窗體中的第一個(gè)窗體，但該窗體未必是應(yīng)用程序的主窗口。新建一個(gè)工程時(shí)，MainForm屬性值自動(dòng)置為Form1。在設(shè)計(jì)時(shí)可通過(guò)Project|Options對(duì)話框中的Forms頁(yè)面在多個(gè)窗體中指定其中之一為MainForm在運(yùn)行時(shí)是不能修改MainForm屬性的，因?yàn)樵搶傩允侵蛔x的主窗體是應(yīng)用程序主題創(chuàng)建的第一個(gè)窗體。主窗體關(guān)閉即應(yīng)用程序終止在應(yīng)用程序中，可以調(diào)用方法Application.MainForm.Close來(lái)終止應(yīng)用程序運(yùn)行，可以獲取Application.MainForm.Top、Application.MainForm.Left 等屬性的值從而確定當(dāng)前活動(dòng)窗口的位置以及尺寸等屬性ShowMainForm屬性ShowMainForm確定了是否在應(yīng)用程序啟動(dòng)時(shí)顯示主窗體。定義如下：property ShowMainForm.: Boolean;應(yīng)用程序用ShowMainForm屬性控制是否以及何時(shí)顯示其主窗體TApplication的構(gòu)造器置ShowMainForm為True。默認(rèn)情況下主窗體將被顯示，MainForm屬性中指明了主窗體 如果需要在應(yīng)用程序啟動(dòng)時(shí)隱藏主窗體，那么應(yīng)在主工程文件中調(diào)用 Application.Run之前置ShowMainForm為False，并且確信主窗體的Visible屬性值為False。這在許多實(shí)現(xiàn)OLE自動(dòng)化服務(wù)器是很有用的，比如在啟動(dòng)自動(dòng)化服務(wù)時(shí)隱藏服務(wù)器程序的主窗體另外，如果需要在應(yīng)用程序啟動(dòng)時(shí)顯示一個(gè)閃出圖片(Flash) 并為應(yīng)用程序的環(huán)境做一些準(zhǔn)備，同時(shí)需要禁止主窗體顯示，這也可以利用屬性ShowMainForm來(lái)實(shí)現(xiàn)。比如Delphi啟動(dòng)時(shí)就禁止了主窗體的顯示。 屬性Terminated屬性Terminated報(bào)告應(yīng)用程序是否收到終止程序的Windows消息WM_QUIT。定義如下：property Terminated: Boolean;Terminated是只讀屬性。該屬性主要用于調(diào)用ProcessMessages 方法時(shí)應(yīng)用程序不必在停止后試圖處理Windows 消息。當(dāng)ProcessMessages方法收到消息WM_QUIT時(shí)，Terminated將被置為TrueDelphi應(yīng)用程序總會(huì)因?yàn)橹鞔绑w或應(yīng)用程序關(guān)閉，或者因?yàn)門erminate 方法被調(diào)用而收到消息WM_QUIT當(dāng)應(yīng)用程序執(zhí)行強(qiáng)度較大、占用系統(tǒng)資源較多的運(yùn)算時(shí)，應(yīng)當(dāng)周期性地調(diào)用Applicati-on.ProcessMessages方法，并檢查屬性Application.Terminated以確定是否需要終止運(yùn)算從而終止應(yīng)用程序?qū)傩訳pdateFormatSettings屬性UpdateFormatSettings指明了當(dāng)用戶改變系統(tǒng)配置時(shí)應(yīng)用程序是否自動(dòng)更新格式設(shè)置。定義如下：property UpdateFormatSettings: Boolean;使用UpdateFormatSettings屬性應(yīng)用程序可以控制自動(dòng)更新格式設(shè)置。TApplication的構(gòu)造器置該屬性為True。當(dāng)應(yīng)用程序收到消息WM_WININICHANGE時(shí)將檢查UpdateFormatSett-ings屬性。建議使用默認(rèn)的格式設(shè)置，也就是Windows本地的設(shè)置?？梢灾肬pdateFormatSe-ttings為False以避免在Delphi應(yīng)用程序執(zhí)行期間改變格式設(shè)置屬性UpdateMetricSettings屬性UpdateMetricSettings屬性指明是否對(duì)提示窗口字體和圖標(biāo)標(biāo)題等相關(guān)設(shè)置進(jìn)行更新。定義如下：property UpdateMetricSettings: Boolean;UpdateFormatSettings屬性指明系統(tǒng)中提示窗口字體和圖標(biāo)標(biāo)題等設(shè)置改變是否反映到應(yīng)用程序中相關(guān)設(shè)置的改變TApplication的構(gòu)造器置UpdateMetricSettings的初始值為True方法BringToFront方法BringToFront設(shè)置應(yīng)用程序中最近一次的活動(dòng)窗口到桌面上所有窗口的最前端。其定義如下：procedure BringToFront;用BringToFront方法可以找到屬于主窗體的最近一次的活動(dòng)窗口并且將其置于最前端BringToFront方法也可以測(cè)試和查看一個(gè)窗口在成為最前端窗口之前是否是可見(jiàn) (Visible)和有效的(Enabled) 例如，當(dāng)應(yīng)用程序收到郵件時(shí)，可能需要將專門的處理程序激活并置于Windows 桌面的最前端。這時(shí)就可以調(diào)用Application.BringToFront方法來(lái)實(shí)現(xiàn)方法CreateForm方法CreateForm方法用于創(chuàng)建新的窗體(form)。定義如下：procedure CreateForm(FormClass: TFormClass; var Reference);Delphi應(yīng)用程序總會(huì)調(diào)用CreateForm方法。因此程序員很少有必要直接調(diào)用CreateForm方法。一個(gè)典型的Delphi工程在工程的主體代碼部分包括一處或多處調(diào)用CreateForm方法，并且在使用窗體設(shè)計(jì)器時(shí)自動(dòng)控制窗體的創(chuàng)建。也可以在運(yùn)行時(shí)可以調(diào)用CreateForm方法來(lái)動(dòng)態(tài)創(chuàng)建窗體CreateForm方法根據(jù)FormClass 參數(shù)創(chuàng)建一個(gè)新的指定的窗體并且將窗體賦予到變量參數(shù)Reference。 新創(chuàng)建的窗體的所有者就是對(duì)象Application。 應(yīng)用程序?qū)⒌谝粋€(gè)調(diào)用CreateForm 創(chuàng)建的窗體默認(rèn)為工程的主窗體方法HandleException方法HandleException為應(yīng)用程序的異常提供默認(rèn)的句柄。定義如下：procedure HandleException(Sender: TObject);方法HandleException 對(duì)于編寫特定組件的作者來(lái)說(shuō)是很有用的，因?yàn)樗梢援a(chǎn)生一個(gè)不必對(duì)Windows 消息產(chǎn)生響應(yīng)的事件。在應(yīng)用程序中可以利用OnException 事件句柄將其它的異常操作控制在自定義的代碼中 在應(yīng)用程序代碼中，如果異常跳過(guò)了所有的try 塊，那么應(yīng)用程序?qū)⒆詣?dòng)調(diào)用HandleException方法，并將顯示一個(gè)提示有錯(cuò)誤發(fā)生的對(duì)話框。除非異常對(duì)象是EAbort，此時(shí)HandleException將調(diào)用OnException句柄(如果存在)，否則將調(diào)用ShowException顯示一個(gè)提示有錯(cuò)誤發(fā)生的對(duì)話框方法UnhookMainWindow UnhookMainWindow方法用于釋放由HookMainWindow方法掛在主窗體的程序。定義如下：type TWindowHook = function(var Message: TMessage): Boolean of object;procedure UnhookMainWindow(Hook: TWindowHook);用UnhookMainWindow可以釋放掛鉤窗口。在參數(shù)Hook中指明對(duì)話框過(guò)程 TwindowHook 類型是調(diào)用HookMainWindow方法的參數(shù)。該參數(shù)是非Delphi對(duì)話框中調(diào)用對(duì)話程序的方法指針。對(duì)話程序與窗口程序相似，都是為對(duì)話框處理消息，只是語(yǔ)法不同 事件OnActivate當(dāng)應(yīng)用程序成為活動(dòng)狀態(tài)時(shí)OnActivate事件發(fā)生。定義如下：type TNotifyEvent = procedure (Sender: TObject) of object;property OnActivate: TNotifyEvent;用OnActive事件編寫一個(gè)事件句柄來(lái)完成當(dāng)應(yīng)用程序成為活動(dòng)狀態(tài)時(shí)指定特別的處理 當(dāng)一個(gè)Windows 應(yīng)用程序最初運(yùn)行時(shí)或其焦點(diǎn)從另一個(gè)Windows 應(yīng)用程序轉(zhuǎn)移回到當(dāng)前應(yīng)用程序時(shí)，該應(yīng)用程序成為活動(dòng)狀態(tài)事件OnDeactivate 當(dāng)應(yīng)用程序成為非活動(dòng)狀態(tài)時(shí)OnDeactivate事件發(fā)生。定義如下：type TNotifyEvent = procedure (Sender: TObject) of object;property OnDeactivate: TNotifyEvent;在應(yīng)用程序成為非活動(dòng)狀態(tài)之前可以立即觸發(fā)OnDeactive事件，從而完成在該事件句柄中指定的特別處理。當(dāng)用戶從當(dāng)前應(yīng)用程序轉(zhuǎn)換到另一應(yīng)用程序時(shí)，當(dāng)前應(yīng)用程序的OnDea-ctive事件即發(fā)生事件OnException 當(dāng)應(yīng)用程序中的某個(gè)無(wú)句柄的異常發(fā)生時(shí)事件OnException發(fā)生。定義如下：type TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;property OnException: TExceptionEvent;可以通過(guò)OnException 事件來(lái)改變?cè)趹?yīng)用程序中無(wú)句柄的異常發(fā)生時(shí)的默認(rèn)動(dòng)作。在方法TApplication.HandleException方法中，OnException 事件句柄被自動(dòng)調(diào)用 OnException 事件僅用于處理在進(jìn)行消息處理時(shí)發(fā)生的異常。在Application.Run 執(zhí)行前或執(zhí)行后發(fā)生的異常不會(huì)導(dǎo)致OnException事件發(fā)生 如果某個(gè)異常在應(yīng)用程序代碼的try 塊中被忽略，那么應(yīng)用程序?qū)⒆詣?dòng)調(diào)用HandleExc-eption方法。除非異常對(duì)象是EAbort，此時(shí)HandleException 將調(diào)用OnException句柄(如果存在)， 否則將調(diào)用ShowException 顯示一個(gè)提示有錯(cuò)誤發(fā)生的對(duì)話框 TExceptionEvent類型是OnException事件的類型，該類型在應(yīng)用程序中指向一個(gè)處理異常的方法。參數(shù)Sender是引發(fā)異常的對(duì)象，而參數(shù)E 是異常對(duì)象事件OnHelp 當(dāng)應(yīng)用程序收到幫助請(qǐng)求時(shí)OnHelp事件發(fā)生。定義如下：type THelpEvent = function (Command: Word; Data: Longint; var CallHelp: Boo-lean): Boolean of object;property OnHelp: THelpEvent;用OnHelp編寫一個(gè)事件句柄以完成有請(qǐng)求幫助時(shí)特別的處理。HelpContext方法和Help-Jump方法自動(dòng)引發(fā)OnHelp事件 在事件發(fā)生之后置CallHelp為True使VCL調(diào)用WinHelp；置CallHelp為False以防止VCL調(diào)用WinHelp。 Delphi應(yīng)用程序中所有與幫助有關(guān)的方法都經(jīng)過(guò)OnHelp事件。僅當(dāng)OnHelp事件中的CallHelp參數(shù)返回True或OnHelp事件沒(méi)有被指定到有效的句柄時(shí)，WinHelp被調(diào)用事件OnHint 當(dāng)鼠標(biāo)指針移動(dòng)經(jīng)過(guò)某個(gè)控件或菜單項(xiàng)并且該控件或菜單項(xiàng)能夠顯示幫助提示時(shí)，事件OnHint發(fā)生。定義如下：type TNotifyEvent = procedure (Sender: TObject) of object;property OnHint: TNotifyEvent;用OnHint編寫的事件句柄能夠在OnHint事件發(fā)生時(shí)執(zhí)行指定的操作。當(dāng)用戶停放鼠標(biāo)指針在某個(gè)控件上，并且該控件的Hint屬性值不是空串()，這時(shí)OnHint事件將發(fā)生 通常用OnHint事件顯示控件或菜單項(xiàng)Hint屬性的值作為某個(gè)面板控件(如TStatusBar)的標(biāo)題，因此把面板(panel) 用作狀態(tài)欄(status bar)。當(dāng)OnHint事件發(fā)生時(shí)，Hint屬性通常被指定為一個(gè)幫助提示(Help Hint)和一個(gè)在別處顯示的長(zhǎng)提示(longer hint)事件OnIdle 當(dāng)應(yīng)用程序成為空閑狀態(tài)時(shí)OnIdle事件發(fā)生。定義如下：type TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object;property OnIdle: TIdleEvent用OnIdel編寫一個(gè)事件句柄當(dāng)應(yīng)用程序空閑時(shí)完成指定的操作。當(dāng)應(yīng)用程序不執(zhí)行任何代碼時(shí)即為空閑的。例如，當(dāng)應(yīng)用程序等待用戶輸入時(shí)該應(yīng)用程序是空閑的 TIdelEvent類型是OnIdel事件的類型，它指向一個(gè)當(dāng)應(yīng)用程序空閑時(shí)運(yùn)行的方法。對(duì)象TIdelEvent有一個(gè)默認(rèn)為True的布而變量Done。當(dāng)Done為True時(shí)，Windows API 函數(shù)WaitM-essage將在OnIdel返回時(shí)被調(diào)用。WaitMessage 使其它應(yīng)用程序得到控制焦點(diǎn)直到應(yīng)用程序的消息隊(duì)列中出現(xiàn)一條新的消息。當(dāng)參數(shù)Done為False 且應(yīng)用程序不忙時(shí)，應(yīng)用程序不會(huì)使其它應(yīng)用程序得到控制焦點(diǎn) 當(dāng)應(yīng)用程序轉(zhuǎn)為空閑狀態(tài)時(shí)，OnIdel事件僅發(fā)生一次，直到參數(shù)Done置為True才可能發(fā)生下一次OnIdel事件。應(yīng)用程序置Done為False消除了紊亂的CPU時(shí)間計(jì)數(shù)，而該計(jì)數(shù)可能影響整個(gè)系統(tǒng)的性能Delphi程序示例interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls;type TForm1 = class(TForm) StatusBar1: TStatusBar; procedure FormCreate(Sender: TObject); private Private declarations public procedure CustomDisplayHint(Sender: TObject); /Line 16 Public declarations end;varForm1: TForm1;implementation$R *.DFMprocedure TForm1.CustomDisplayHint(Sender: TObject);begin StatusBar1.SimpleText := GetLongHint(Application.Hint); /Line 29end;procedure TForm1.FormCreate(Sender: TObject);begin Application.OnHint := CustomDisplayHint; /Line 34end;end. 在上面的代碼中，第16行是開(kāi)發(fā)者定義的用于事件OnHint的方法 CustomDisplayHint； 第29行是該方法的實(shí)現(xiàn)部分，將Application.Hint中的長(zhǎng)提示解析出來(lái)，并在狀態(tài)欄中顯示出來(lái)； 第34行是在窗體創(chuàng)建時(shí)將方法CustomDisplayHint 與事件Application.OnHint的句柄相關(guān)聯(lián)。 當(dāng)鼠標(biāo)移動(dòng)并停留在某個(gè)控件(如按鈕)上時(shí)，如果該控件各級(jí)宿主對(duì)象的ShowHint屬性(如果有)的值都為True并且其ShowHint屬性的值也為True，那么該控件的Hint屬性值中的短提示將以提示窗口的形式浮動(dòng)顯示出來(lái)，而相應(yīng)的長(zhǎng)提示則按照事件句柄中的指定操作將顯示在狀態(tài)欄中。簡(jiǎn)介 TApplication繼承關(guān)系：TObject TPersistent TComponent TApplication組件的屬性:ActiveAllowTestingDialogHandleExeNameHandleHelpFileHintHintColorHintHidePauseHintPauseHintShortPauseIconMainFormShowHintShowMainFormTerminatedTitleUpdateFormatSettingsUpdateMetricSettings從TCompnent繼承來(lái)的：ComObjectComponentCountComponentIndexComponentsComponentStateComponentStyleDesignlnfoNameOwnerTagVCLComObjectTApplication組件的方法：BringToFrontCancelHintControlDestroyedCreateCreateFomCreateHandleDestroyHandleExceptionHandleMessageHelpCommandHelpContextHelpJumpHideHintHintMouseMessageHookMainWindowlnitializeMessageBoxMinimizeNormalizeTopMostsNormalizeAllTopMostsProcessMessagesRestoreRestoreTopMostsRunShowExceptionTerminateUnhookMainWindow從TComponent繼承來(lái)的：DestroyComponentsDestroyingFindComponentFreeNotificationFreeOnReleaseGetParentComponentHasParentInsertComponentRemoveComponentSafeCallException從TPersistent繼承來(lái)的:AssignGetNamePathTObject繼承來(lái)的:ClassInfoClassNarneClassNameIsClassParentClassTypeCleanupInstanceDefaultHandlerDispatchFieldAddressFreeFreelnstanceGetInterfaceGetInterfaceEntryGetInterfaceTableInheritsFormInitInstanceInstanceSizeMethodAddressMethodNameNewInstanceTApplication組件的事件:OnActivateOnDeactivateOnExceptionOnHelpOnHintOnIdleOnMessageOnMinimizeOnRestoreOnShowHintActive屬性 對(duì)應(yīng)對(duì)象：TApplication聲明：property Active: Boolean;功能：Active屬性是用來(lái)聲明應(yīng)用程序是否被激活。Active屬性是在運(yùn)行時(shí)有效，它是只讀類型的。當(dāng)應(yīng)用程序處于激活狀態(tài)并且具有焦點(diǎn)時(shí)，它將返回真，否則將返回假。例子：/Place a timer on the form, and change its interval property to 100 procedure TForml.Timer1Timer(Sender: TObject); begin if Application.Active = True then Forml.Caption := Application is active; else Forml.Caption := Application is inactive; end; BringToFront方法 對(duì)應(yīng)對(duì)象：TApplication聲明：procedure BringToFront;功能BringToFront方法用于將用戶的應(yīng)用程序的主窗體窗口放置到Windows Desktop上的其他窗口的前面。Windows Desktop有一個(gè)Z軸的次序，確定一個(gè)窗口相對(duì)于其他窗口的邏輯位置(上或下)。這個(gè)Z軸次序允許窗口以疊加的形式出現(xiàn)，同時(shí)確定當(dāng)前的帶有焦點(diǎn)的窗口。BringToFront使用戶的應(yīng)用程序的主窗體的窗口放置在Z軸次序的上部，這樣將使它擁有焦點(diǎn)并且處于被激活的狀態(tài)，使其出現(xiàn)在Desktop的所有窗口之上。例子：/Rathcr annoying example that forces your window to the front procedure TForml.Timer1Timer(Sender: TObject); begin if Application.Active = False then Application.BringToFront; end; CreateFom方法 對(duì)應(yīng)對(duì)象：TApp1ication聲明：procedure CreateForm(InstanceClass: TComponentClass; var Reference);功能：CreateForm方法用來(lái)創(chuàng)建一個(gè)新的窗體。InstanceClass是要被創(chuàng)建的窗體的類型。Reference是賦予窗體的變量。Application對(duì)象擁有新創(chuàng)建的窗體。在項(xiàng)目源代碼中至少應(yīng)調(diào)用一次CreateForm，且該應(yīng)用程序的每一個(gè)窗體都將被調(diào)用，這些調(diào)用是由Delphi自動(dòng)地調(diào)用，不需要用戶人工調(diào)用。例子：/Project source use View|Project Source from the IDE program Projectl; uses Forms, Unit1 in Unitl.pas Form1; $R *.RES begin Application.Initialize; Application.CreateForm(TForm1, Forml); Application.Run; end; ExeName屬性 對(duì)應(yīng)對(duì)象：TApplication聲明；property ExeName: string;功能：ExeName包含了應(yīng)用程序可執(zhí)行文件的目錄和文件名。ExeName屬性在運(yùn)行時(shí)有效，并且為只讀型的。它包含有應(yīng)用程序的可執(zhí)行文件名。Handle屬性 對(duì)應(yīng)對(duì)象：TApplication聲明：propeny Handle: HWND;功能：包含有應(yīng)用程序窗口的句柄。Handle屬性在處理一個(gè)需要窗口句柄的API的調(diào)用時(shí)使用的。通常用戶不需要自己去訪問(wèn)Application.Handle屬性。注意這里指的是不可視的應(yīng)用程序窗口的句柄并不是主體窗口的句柄。要獲得主體窗口的句柄應(yīng)使用TForm對(duì)象的Handle屬性。HeIpCommand方法 對(duì)應(yīng)對(duì)象：TApplication聲明：fuction HelpCommand(Command:Integer;Data:Longint):Boolean; 功能：HelpCommand允許用戶訪問(wèn)Windows Help API中的任何命令。 Command是需要被調(diào)用的Windows Help API命令。Data是需要被傳送給Help命令的數(shù)據(jù)。HelpCommand方法調(diào)用了Windows Help的文件WINHELP.EXE，并且將它傳送給由Command參數(shù)指定的命令及由Data參數(shù)指定的數(shù)據(jù)，被發(fā)送的命令指定了請(qǐng)求幫助的類型，而被發(fā)送的數(shù)據(jù)則依請(qǐng)求的命令而確定。以下例出了可以被傳送給HelpCommand的部分命令和數(shù)據(jù)值。 命 令 值 數(shù) 據(jù) 值 意 義 HELP_COMMAND 包含將要執(zhí)行的Help宏命令或一毓由分號(hào)分隔的Help宏命令的字符串地址 執(zhí)行Help宏命令或宏命令集。 HELP_CONTENTS 0 此項(xiàng)是為與4.0版本之前的幫助引擎相兼容而提供的命令。對(duì)應(yīng)32位應(yīng)用程序應(yīng)使用HELP_FINDER命令。 HELP_CONTEXT 主題的上下文標(biāo)識(shí)符 顯示由Data值標(biāo)識(shí)的標(biāo)題。 HELP_CONTEXTPOPUP 主題的上下文標(biāo)識(shí)符 創(chuàng)建一個(gè)顯示了Data值指定的主題的彈出式窗口。 HELP_FINDER 0 顯示一個(gè)4.0版本Helptopics對(duì)話框。 HELP_FORCEFILE 0 用于保證WinHelp顯示正確的Help文件，如果不是正確的顯示，則裝載正確的Help文件。 HELP_INDEX 0 該命令與4.0以前的版本相兼容。新的應(yīng)用程序應(yīng)該使用HELP_FINDER來(lái)代替。 HELP_KEY 關(guān)鍵字字符串的地址 顯示由關(guān)鍵字標(biāo)識(shí)的標(biāo)題，關(guān)鍵字的地址由Data傳遞。 HELP_PARTIALKEY 關(guān)鍵字字符串的地址 如果完全匹配，則顯示由關(guān)鍵字標(biāo)識(shí)的主題，關(guān)鍵字的地址由Data傳遞，如果有一個(gè)以上的匹配，則顯示Index標(biāo)簽。 HELP_QUIT 0 如果沒(méi)有其他的應(yīng)用程序請(qǐng)求Help，則將關(guān)閉Help應(yīng)用程序。 HELP_SETCONTENTS 對(duì)Contents主題的上下文的標(biāo)識(shí)符 當(dāng)用戶按擊Contents按鈕時(shí)，指定要顯示的主題。 HELP_SETINDEX 對(duì)索引主題上下文的標(biāo)識(shí)符 指定要在Index中顯示的關(guān)鍵字列表。 HELP_HELPONHELP 0 使用Windows Help顯示Help。 例子： /Load Windows Help procedure TForm1.mnuWindowsHelpClick(Sender:TObject); begin Application.HelpFile:=winhelp.hlp; Application.HelpCommand(HELP_FINDER,0); End; HelpContext方法 對(duì)應(yīng)對(duì)象：TApplication 聲明：function HelpContext(Context:IhelpContext):Boolean; 功能：HelpContext方法用來(lái)打開(kāi)Windows Help并且顯示指定的屏幕。 在調(diào)用HelpContext之前，用戶必須保證Application的HelpFile屬性被設(shè)置成為有效的Help文件。HelpContext將用來(lái)打開(kāi)由HelpFile屬性指定Help文件并且裝載由context參數(shù)指定的屏幕。HelpContext的類型為ThelpContext，它是一個(gè)簡(jiǎn)單的整數(shù)，是在Help內(nèi)定義的ID值，并可以通過(guò)這個(gè)控件的HelpContext的屬性和界面元素相關(guān)聯(lián)。為了創(chuàng)建Help文件可以參考Mircosoft Help WorkShop用戶手冊(cè)。 例子： procedure TForm1.mnuHelpClick(Sender:TObject); begin Application.HelpFile:=my_apps_help.hlp; Application.HelpContext(11); End; HelpFile屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property HelpFile:String; 功能：HelpFile屬性指定應(yīng)用程序所使用的Help文件名。 HelpFile屬性在運(yùn)行時(shí)是有效的，缺少時(shí)此值為空字符串。如果使用之前沒(méi)有將HelpFile設(shè)置成為一個(gè)有效的文件名，則在調(diào)用了Help方法之后，應(yīng)用程序?qū)?duì)此操作忽略。 例子： procedure TForm1.mnuWindowsHelpClick(Sender:TObject); begin Application.HelpFile:=winhelp.hlp; Application.HelpCommand(HELP_FINDER,0); end; HelpJump方法 對(duì)應(yīng)對(duì)象：TApplication 聲明：function HelpJump(const JumpID:string):Boolean; 功能：HelpJump方法用于打開(kāi)一個(gè)Windows Help的指定的頁(yè)。 HelpJump方法驅(qū)動(dòng)Windows Help應(yīng)用程序的WINHELP.EXE文件，并且打開(kāi)了包含有JumpID參數(shù)所指定的上下文字符串的頁(yè)。如果Application的HelpFile屬性包含有一個(gè)有效的Help文件名的引用，則HelpJump將返回真，否則返回假。為了創(chuàng)建一個(gè)上下文字符串可以參考Mircosoft Help WorkShop用戶手冊(cè)。 例子： procedure TForm1.mnuGotoHelpClick(Sender:TObject); begin Application.HelpFile:=my_apps_help.hlp; Application.HelpJump(hlpMyIdentifier); end; HintColor屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property HintColor:TColor; 功能：HintColor屬性用來(lái)確定在應(yīng)用程序中出現(xiàn)的工具的提示窗口的顏色值。 HintColor屬性確定了應(yīng)用程序所使用的工具提示窗口的背景顏色，這個(gè)顏色可以被設(shè)置成為任何的系統(tǒng)支持的顏色。一些通用的顏色是clBlack，clWhite，clYellow，clCaption及clWindow。HintColor是運(yùn)行時(shí)有效的屬性?？梢酝ㄟ^(guò)各種組件的Hint屬性來(lái)訪問(wèn)提示。 例子： procedure TForm1.FormCreate(Sender:TObject); begin Application.HintColor:=clAqua; Form1.Hint:=The HintColor demo program; Form1.ShowHint:=True; end; HintHidePause屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property HintHidePause:Integer; 功能：當(dāng)用戶使用鼠標(biāo)指針在顯示的工具提示上沒(méi)有立即移開(kāi)時(shí)，HintHidePause屬性用來(lái)確定工具提示的時(shí)間長(zhǎng)短。 在缺少的情況時(shí)，工具的提示及在它消失之前顯示約2500毫秒。用戶可以用這個(gè)屬性修改顯示的時(shí)間長(zhǎng)度，時(shí)間單位是毫秒。這個(gè)屬性是在運(yùn)行時(shí)有效的?？梢允褂妹總€(gè)組件的Hint屬性來(lái)訪問(wèn)工具提示。 例子： procedure TForm1.FormCreate(Sender:TObject(; begin /Set the HintHidePause to 5 seconds Application.HintHidePause:=5000; end; HintPause屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property HintPause:Integer; 功能：HintPause屬性用來(lái)指定在一個(gè)工具提示顯示之前的所顯示的時(shí)間長(zhǎng)短。 當(dāng)鼠標(biāo)在一個(gè)將被顯示的工具提示之上停留一段時(shí)間后，工具提示才顯示幫助。這個(gè)停留的時(shí)間可以由HintPause屬性來(lái)確定，單位是以毫秒來(lái)計(jì)算。缺少蝗時(shí)間是800毫秒。一般可以使用每個(gè)組件的Hint屬性來(lái)訪問(wèn)組件。 例子： procedure TForm1.FormCreate(Sender:TObject); begin /Set the HintHidePause to 5 seconds Application.HintHidePause:=5000; /Set the HintPause to 1 second Application.HintPause:=1000; end; HintShortPause屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property HintShortPause:Integer; 功能：HintShortPause屬性用來(lái)確定在繪制之前工具提示的延遲時(shí)間的長(zhǎng)短。 HintShortPause用于當(dāng)用戶移動(dòng)鼠標(biāo)經(jīng)過(guò)了一系列的與工具提示相關(guān)聯(lián)的組件時(shí)，禁止工具提示的快速繪制。它確定了工具提示在重新顯示之前的等待的時(shí)間長(zhǎng)短，如果工具提示在近期已經(jīng)顯示過(guò)并且鼠標(biāo)指針再次移動(dòng)到這個(gè)組件上時(shí)，HintShortPause將顯示在工具再次顯示之前的延遲的時(shí)間。這個(gè)屬性在運(yùn)行時(shí)是有效有，時(shí)間的單位是毫秒，在缺少時(shí)的值是50毫秒。工具提示可以通過(guò)組件的Hint屬性訪問(wèn)。 例子： procedure TForm1.FormCreate(Sender:TObject); begin /Set the HintPause to 1 second Application.HintPause:=1000; /Set the HintShortPause to 1/10th of a second Application.HintShortPause:=100; end; Icon屬性 對(duì)應(yīng)對(duì)象：TApplication 聲明：property Icon:TIcon; 功能：Icon屬性確定一個(gè)代表應(yīng)用程序的圖標(biāo)。 每一個(gè)應(yīng)用程序的圖標(biāo)Icon屬性出現(xiàn)在應(yīng)用程序任務(wù)欄窗口的按鈕上，人微言輕應(yīng)用程序主窗體標(biāo)題欄的圖標(biāo)，并用來(lái)作為在文件瀏覽器中應(yīng)用程序的圖標(biāo)。雖然圖標(biāo)的Icon屬性可以使用代碼來(lái)設(shè)置，但一般從Delphi中的Project Options對(duì)話框中的Application的標(biāo)簽中設(shè)置。如果沒(méi)有改變?cè)谶x項(xiàng)中的圖標(biāo)，那么當(dāng)用戶在Shell中查看時(shí)，可以為自己的應(yīng)用程序獲得缺少的“火炬”圖標(biāo)。 例子： procedure TForm1.FormCreate(Sender:TObject); begin /Set the application icon Application.Icon.LoadFromFile(d:BorlandDelphi 4ImagesIconsEarth.ico); end; Initializ