改造Hint输出方式_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

改造Hint输出方式

作者：闵涛文章来源：闵涛的学习笔记点击数：808 更新时间：2009/4/23 18:24:15

　elphi为每个可视构件(而非快速按钮专属)都提供了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提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。值得庆幸的是，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｝

　　别忘了在新增的语句旁作一些必要的注释，如上模?1997.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继承下来一个新类，并重载Activate？Hint方法，然后在应用程序开始处给变量HintWindowClass指派一个新类实例。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：制作用于日期时间型字段的DELPHI数据感知控件

下一篇教程： Delphi应用程序中中国式报表的制作

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……