Delphi 技巧 - 改造HINT的输出方式

2008-11-7网络佚名

【大中小】

　　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继承下来一个新类，并重载ActivateHint方法，然后在应用程序开始处给变量HintWindowClass指派一个新类实例.

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com
关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩

本文来源：网络作者：佚名

上一篇文章： Delphi 技巧 - 选择和调整组件

下一篇文章： Delphi写的RM文件分析器源代码

教你在win10系统让windows defender自动更新   win8电脑开机弹出syslevelup警告窗口   雷蛇发布2017款Blade Pro笔记本电脑  搭载Kab
雷蛇Blade Pro完整评测：售价昂贵的4K游戏笔记   雷蛇发布新款Blade笔记本电脑  配4K屏和Kaby   装Marvell网卡的电脑升级win10网络连不上
上海WE LOVE电竞馆，因为是你所以we love  惠普EliteBook 1030评测：外形美性能强的商务   雷蛇Blade Pro上手评测：外形华丽性能强大键盘
低价位的Inteli5电脑配置推荐

推荐专题 ┊ 更多专题..

网吧卫生

网吧电脑配置

开网吧

网吧键盘

网吧配置

网吧GHOST

ROS

网吧软件故障解决

网众无盘

网吧游戏菜单

网吧活动

网吧优化

网吧精品

网吧新手

声明

声明：本站所发表的文章、评论及图片仅代表作者本人观点，与本站立场无关。若文章侵犯了您的相关权益，请及时与我们联系，我们会及时处理，感谢您对本站的支持！联系邮箱：support@txwb.com，系统开号，技术支持，服务联系QQ：1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品，各位转载时请注明来源链接！

天下网吧网吧天下

Delphi 技巧 - 改造HINT的输出方式

推荐文章

最新文章