|
Delphi 技巧 - 改造HINT的输出方式
Delphi为每个可视构件（而非快速按钮专属）都提供了Hint 及ShowHint特性，其中Hint属性指定文本提示盒中的文本，
而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒， 当ShowHint值为True时，显示文本提示盒。用户可在对象监
视器（Object Inspector）的属性栏中设置或在程序中修改Hint 及ShowHint属性。
除此之外，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提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。<
值得庆幸的是，Delphi５提供了全部构件的源代码，我们可以通过对类TApplication的源码作一些小修改，增加一个HintFont的属性，即可象修改
HintColor一样来修改文本提示盒的字体、字型大小等。 TApplication是在Forms单元里定义的，因此让我们打开
Forms．pas单元文件来作以下一些修改：
ProcedureSetHintColor（Value：TColor｝；
ProcedureSetHintFont（Value：TFont）； ｛1997．04．19Mynewidea｝
PropertyHintColor： TColorreadFHintColorWriteSetHintColor；
PropertyHintFont：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｝
别忘了在新增的语句旁作一些必要的注释，如上面的 ｛1997．04．19Mynewidea｝，可以很清楚地知道哪些语句是你自己加进去的。
将修改后的Forms．pas存盘，然后重建库文件，以后在你的库文件里，类TApplication就多了一个属性HintFont，
你就可以很轻易的通过HintFont属性来修改文本提示盒的字 体、字型大小了，如以下一段程序：
ProcedureTMainForm．FormCreate（Sender：TObject）；
Var NewHintFont：TFont．Create；
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指派一个新类实例.
|
