Delphi的Hint入门指导
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| Delphi中使用提示是如此简单，只需将欲使用Hint的控件作如下设置： ShowHint := True; Hint := ‘提示信息’; 不必写一行代码，相当方便。 但有时我们又想自己定制提示的效果，使其看起来更美观更具个人特色，没关系，Delphi完全有办法让你写出自己喜欢的Hint效果。 Delphi的Hint功能实现归类在Application类中，所以我们可以在Application类中看到数个关于Hint的属性，这些属性可以设置Hint窗口的颜色，停留时间，出现时间等，设置了这些属性，将对整个工程的Hint功能起到影响。这样做的好处当然是统一了Hint的风格，并且让其他类不必去理会Hint的实现。 我们可以建一个简单的工程，并放一个按钮，将按钮的ShowHint设为True，再对Hint设一个值。运行程序，当光标指到按钮上时，便会出现一个提示窗口。 但如果我们在主窗口的创建事件中写下： procedure TForm1.FormCreate(Sender: TObject); begin Application.ShowHint := False; end; 这些再运行程序，就不再有提示出现了，由此可知Application的ShowHint控制整个工程的Hint是否显示。 如果你对于平常所见的Hint窗口的颜色感到厌烦，那么可以设Application的HintColor为其他颜色。但此时有一个问题，如果HintColor设为黑色，则提示字体也为黑色，就看不到提示信息了。为此，我们得了解另一个全局对象，事实上当程序运行时，会创建三个全局对象：Application，Screen，Mouse，三个对象的职责非常明显。Screen封闭了运行的工程在屏幕上的状态，它有一个HintFont的属性，允许你设置提示信息的字体。 我们可以写如下的代码： procedure TForm1.Button1Click(Sender: TObject); begin Application.HintColor := clBlack; Screen.HintFont.Color := clWindow; Screen.HintFont.Size := 14; end; 运行程序看看效果，提示字体变为白色，且变大了。 另外Application有这三个属性： HintHidePause，HintPause，HintShortPause，控制着提示窗显示的时间等。HintHidePause指定提示窗口在屏幕上显示的时间，以毫秒为单位。HintPause则指定当你将光标移到有提示的控件上时，经过多长时间才会出现提示窗口，以毫秒为单位。而HintShortPause呢表示当你快速移动光标经过一组有Hint的控件时，显示Hint的间隔。比如有两个有Hint的控钮，当你的光标快速 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Delphi&BCB一线程序员开发经验下一篇: Delphi情结——永不消逝的精灵
关于Delphi的Hint入门指导的所有评论
