除此之外，Delphi還在類TApplication中提供了HintColor、HintPause、HintHidePause、HintShortPause幾個屬性來控制文本提示盒的輸出方式。
一般來說，HintColor、HintPause、HintHidePause、HintShortPause通常在Form的OnCreate事件中設定它們的值(如有需要的話)，如以下的一段程序。
ProcedureTMainForm.FormCreate(Sender:TObject);
begin
Application.HintPause:=0;｛使文本提示盒立即出現｝
Application.HintPause:=clBlue;｛以藍色小方框的方式出現｝
Application.HintHidePause:=10000;｛延長停留時間為10秒｝
Application.HintShortPause:=100;
end;
另外，在編程中，我們還可以通過TApplication的OnHint事件獲取鼠標指向構件的Hint文本。
事實上，Delphi提供的文本提示盒輸出方框、文本字型都太小，既不美觀亦不易看清。值得慶幸的是，Delphi2.0版提供了全部構件的源代碼，我們可以通過對類TApplication的源碼作一些小修改，增加一個HintFont的屬性，即可象修改HintColor一樣來修改文本提示盒的字體、
字型大小等。
TApplication是在Forms單元里定義的，因此讓我們打開Forms.pas單元文件來作以下一些修改:
ProcedureSetHintColor(Value:TColor｝;
ProcedureSetHintFont(Value:TFont);｛1997.04.19 MyNewIdea｝
Property HintColor:TColor read FHintColor Write SetHintColor;
Property HintFont:TFontwriteSetHintFont;｛1997.04.19Mynewidea｝
ProcedureTApplication.SetHintColor(Value:Color); //增加一個過程｛1997.04.19Mynewidea｝
ProcedureTApplication.SetHintFont(Value:TFont);
begin
if(Value nil) and (FHinWindow nil) then
FHintWindow.Canvas.Font:=Value;
end;｛1997.04.19Mynewidea｝
別忘了在新增的語句旁作一些必要的注釋，如上 模?997.04.19Mynewidea｝，可以很清楚地知道哪些語句是你自己加進去的。
將修改后的Forms.pas存盤，然后重建庫文件，以后在你的庫文件里，類TApplication就多了一個屬性HintFont，你就可以很輕易的通過HintFont屬性來修改文本提示盒的字體、字型大小了，如以下一段程序:
ProcedureTMainForm.FormCreate(Sender:TObject);
Var
NewHintFont : TFont;
begin
NewHintFont:=TFont.Create;
NewHintFont.Name:=楷體－GB2312;｛設置字體為楷體｝
NewHintFont.Size:=12;｛設置字型大小為12｝
Application.HintFont:=NewHintFont;
end;
此外，Delphi繪制文本提示盒是在類THintWindow的方法ActivateHint中通過WindowsAPI資源函數SetWindowPos來實現的，這段代碼在Controls.pas單元文件里，有興趣的讀者可以進一步修改這段代碼以繪制其他任意形狀(如橢圓、圓等)而不僅僅是矩型方框的文本提示盒！但或許最好的方法是從類THintWindow繼承下來一個新類，并重載ActivateHint方法，然后在應用程序開始處給變量HintWindowClass指派一個新類實例。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
