建立自己的Hint窗口

建立自己的Hint窗口
　　当鼠标停留在某个控件上时，如果该控件的ShowHint特性为真则会显示出一个黄色的小窗口，这就是Hint窗口。如果从THintWindow派生一个类，并且将新类型赋值给全局变量HintWindowClass，则Delphi的Hint窗口将使用你所建立的新风格。
　　新类可以重载THintWindow的Paint方法来自己绘制Hint信息，例如下面这段代码将用红色填充整个Hint窗口，然后以黄色来显示Hint信息：
procedure TNewHintWindow.Paint;
var
R:TRect;
begin
with Canvas do
begin
Brush.Color:=clRed;
Brush.Style:=csClear;
Rectangle(0,0,Width,Height);
end;
R:=ClentRect;
Inc(R.Top,3);
Inc(R.Left,2);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Color:=clYellow;
DrawText(Canvas.Handle, PChar(Caption),-1,R,DT_LEFT);
end;
　　如果希望Hint窗口是透明的，则可以在新类中加入一个消息捕获过程，使Hint窗口不执行重绘背景的操作：
type
TNewHintWindow=class(THintWindow);
private
procedure WMEraseBKGND(var Message:TMessage); message WM_ERASEBKGND;
. . .
end;
procedure TNewHintWindow.WMEraseBKGND(var Message:TMessage);
begin
Message.Result:=0;
end;