装扮工具提示条

delphi技巧之

装扮工具提示条

什么是工具提示条？在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的派生类，并重载它的创建方法，然后在此方法中重新定义字体，不就实现了我们所希望的效果吗？那就让我们行动起来吧。

首先新建一应用程序，在form1窗体上添加一个用于测试的按钮button1，设置showhint属性为true，hint属性为“这是一个按钮”，然后在代码页的implementation部分前面声明myhint类：

type

myhint=class (thintwindow)

constructor create (aowner: tcomponent); override;

end;

该类只有一个方法，用override关键字来表示重载了父类（thintwindow）的创建方法。接着在implementation部分写入此方法的代码：

constructor myhint.create(aowner: tcomponent);

begin

inherited create(aowner); //重载父类方法

with canvas do begin //设置字体

font.name := 楷体_gb2312;

font.color :=clyellow;

font.size :=20;

brush.style := bsclear;

end;

在此过程中我们重新定义了字体的名称、颜色及大小，现在就可以使用这个新类了。那么如何使用呢？这里还要说明一点：在delphi中有一个隐含的变量hintwindowclass，它的作用就是指定在程序运行时显示的工具提示条所使用的类，其声明如下：

var hintwindowclass: thintwindowclass = thintwindow;

在程序中我们可以动态改变此变量，如在主窗体的创建事件中写入：hintwindowclass:=myhint;这样就可以让它使用我们新创建的类了。好了，现在来运行一下程序，看看效果如何？工具提示条的字体变成了楷体，尺寸也变大了，颜色……，怎么颜色没有改变呢？新的问题出现了，还是再看看thintwindow的代码吧。

问题就出在thintwindow的paint方法上，其代码如下：

procedure thintwindow.paint;

var

r: trect;

begin

r := clientrect;

inc (r.left, 2);

inc (r.top, 2);

canvas.font.color := clinfotext; //请注意这一句

drawtext(canvas.handle, pchar(caption), -1, r, dt_left or dt_noprefix or dt_wordbreak or drawtextbidimodeflagsreadingonly);

end;

原来thintwindow在它的paint方法中又重新改变了字体颜色。没办法，只好重写paint方法了。在myhint类中再声明一个重载方法：procedure paint; override;然后将thintwindow的paint方法的代码照搬过来，再将canvas.font.color := clinfotext;这一句删除掉。至此就大功告成了，再运行一下程序看看，这下一点问题都没有了。

也许你会说：“其实我们也不用重载thintwindow的create方法，只需重载paint方法即可，然后在其中设置背景及字体，这样会省事得多啦。”当然，这样也行得通，不过你会发现有一点小小的遗憾，是什么？自己试试吧。（什么？没有？！当我没说！）

下一篇：如何在状态栏中加入图标（或图片），还有动态的时间

↓相关文章：