装扮工具提示条

装扮工具提示条

什么是工具提示条？在Windows程序中，当鼠标移动到工具条相应的按钮上时，会弹出一个小窗口来说明该按钮的作用，这个小窗口就叫做工具提示条。一般情况下它的背景色为淡黄色，字体色为黑色。面对这样千篇一律的面孔不知你是不是有些厌烦，是否想过给它化化妆，使其改头换面呢？下面我们就以Delphi为工具，对它动些小手术。

在Delphi中，我们可以设置控件的Hint和ShowHint属性来显示工具提示条。当然，这并不是我们所希望的效果。幸好Delphi在Application对象中给我们提供了HintColor属性，用它可以设置工具提示条的背景颜色。在程序主窗体的创建事件中写入Application.HintColor:=clRed，然后运行一下，怎么样？效果不错吧，背景变成红色了。接下来的问题是，我们如何来改变显示文字的颜色。（嗯，让我好好想想）

Delphi中有一个THintWindow类，看名字就知道它是干什么的了。不错，Delphi就是通过它来实现工具提示条的。在它的创建方法（Create）中只有四条语句：

Constructor THintWindow.Create(AOwner: TComponent);

Begin

  Inherited Create (AOwner);

  Color := $80FFFF;

  Canvas.Font := Screen.HintFont;

  Canvas.Brush.Style := bsClear;

End;

它首先重载了父类的创建方法，然后设置了背景颜色、字体和画刷样式。从这里可以设想一下，如果我们创建一个THintWindow的派生类，并重载它的创建方法，然后在此方法中重新定义字体，不就实现了我们所希望的效果吗？那就让我们行动起来吧。