正在阅读：Delphi的Hint入门指导Delphi的Hint入门指导

2005-08-29 09:58 出处：作者：linzhengqun 责任编辑：moningfeng

　　我们可以写如下的代码：

　　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的控钮，当你的光标快速从Btn1移到Btn2时，Hint经过HintShortPause毫秒才会显示出来。

　　Application中有一个比较特殊的属性Hint，我们不禁要奇怪，Hint指定的是那个控件的提示呢。其实Hint属性的一个很大的用途是给那些没有办法直接出现Hint窗口的控件一个机会，使它们能够通过别的方式出现提示。比如菜单，我们没有办法使菜单出现Hint窗口，但我们可以使菜单的Hint出现在状态栏上的。

　　我们在上面的工程主窗口中加一个状态栏，并在加一个菜单控件，设置几个菜单项，并给每个菜单荐的Hint属性设置一些字符串。

　　然后写下：

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin

　　Application.OnHint := WhenHint;

　　end;

　　procedure TForm1.WhenHint(sender: TObject);

　　begin

　　StatusBar1.SimpleText := Application.Hint;

　　end;

　　运行程序，当你指到菜单项时，看，状态栏上出现了提示了。

　　上面可以看到，通过一些简单的代码，就可以使得提示别具特色。但人们是永远不会满足的，他们总想能不能做更好看的Hint呢，甚至对Hint的窗口风格提出了要求。Delphi的工程师们早想到了这一点，他们通过类的继承设定了一个提示窗口的父类，即我们看到的那个Hint窗口，我们可以通过继承它并覆盖它所提供的虚拟方法来写自己的提示窗口。

　　去读一读HintWindow的源码吧，你只要覆盖几个虚拟方法，你就可以做出很漂亮的提示出来了。

　　Delphi的Hint虽然简单易用，但却不够灵活，因为它提供了统一的风格，所以你不能指定某个提示为错误指示，可某个提示为警告提示。关于这个，我们要用API来实现，在网上找一个漫画式提示，有很多文章可用。这里不再说述。

　　下面将给出一个定制Hint窗口的例子。这个自定义Hint窗口的效果不错，以玻璃为边框，并且有阴影的效果。