- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
[摘要]Delphi为每个可视构件(而非快速按钮专属)都提供了Hint及ShowHint特性，其中Hint属性指定文本提示盒中的文本，而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，当ShowHint值为True时，显示文本提示盒。用户可在对象监视器(Object Inspector)的属...
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提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。值得庆幸的是，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指派一个新类实例。
推荐资讯 总人气榜
最新教程 本月人气
- 1如何利Mcrypt扩展库进行加密与解密
- 2如何使用C#创建一个3层的数据库应用程序
- 3选购Web服务器
- 4在VC中动态使用FoxPro数据库
- 5个人经验：使用asp尽量减少服务器端的工作量
- 6ODBC to mySQL
- 7分发VFP应用时自动创建快捷方式
- 8转－对于多线程
- 9.Net中如何设置IIS
- 10在PHP世界中选择最合适的模板--比较PHPLIB Template与FastTemplate
- 11菜单项的动态装入
- 12XML、Web服务与.NET框架(1)
- 1uc浏览器去广告图文说明教程：uc浏览器广告过滤技巧使用方法_绿茶安卓网
- 2字符串根据多个字符进行分割的一种方法
- 3使用c#制作容易的留言板(1)
- 43星s5电信版支持4g吗？3星galaxy s5电信版支持4g网络吗？
- 5nubia x6电信版什么时候上市？中兴nubia x6电信版上市时间
- 6华为p7移动版什么时候上市？华为p7手机移动版上市时间
- 7联想黄金斗士s8预约图文说明教程(附联想s8预约网址)
- 8联想黄金斗士s8加持版与规范版的区别有哪一些？s8加持版/规范版区别
- 9美颜相机声音如何关？美颜相机关声音方法_绿茶安卓网
- 10陌陌如何举报？陌陌举报好友图文说明教程_绿茶安卓网
- 11陌陌群聊如何@别人？陌陌群聊@别人方法_绿茶安卓网
- 123星s4手势感应如何用？3星Galaxy s4手势感应视频图文说明教程
