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