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

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

　　只需将该单元加入你的工程当中，然后运行程序，便可看到效果了，试试看，漂亮吧。

　　程序中重要部分已经作了注释，这里只说明几个重要的地方，首先是initialization部分，这里将Application的ShowHint设为False，看一下VCL源码，知道Application将一个HintWindow给消毁了，而HintWindowClass定义如下：

　　THintWindowClass = class of THintWindow;

　　它是THintWindow的类引用，在Forms单元中它初始化为THintWindow：

　　HintWindowClass: THintWindowClass = THintWindow;

　　在这里我们将其替换为TwdHintWnd，最后将ShowHint设为True，Application便用HintWindowClass创建一个Hint窗口，此时创建的便是我们定制的类了，以后的提示窗口就将用我们上面的窗口来显示。

　　在ActivateHint方法，我们将作效果的处理，原理是取得提示窗口在桌面上的位置对应的位图，然后画到提示窗口上，再将提示信息的位置拷贝到提示窗口中间，这样就有了透明的效果了。其次画出玻璃的边，最后在窗口右边和下边作阴影效果。

　　关于阴影效果的实现，用到的是图像的Alpha技术，可以到网上找一找，这里就不多说了，只给出图像透明度的公式：

　　Dst.Red = Src.Red * alpha + (1-alpha) * Dst.Red;

　　Dst.Green = Src.Green * alpha + (1-alpha) * Dst.Green;

　　Dst.Blue = Src.Blue * alpha + (1-alpha) * Dst.Blue;

　　Alpha的值为0到1之间，为1时表示完全不透明，不过我们将用于混合的颜色为黑色，即0，所以上面代码看到的是如下的样子：

　　P[3*i] := P[3*i] * TranstAngle div 100;

　　玻璃提示窗口的原理大概如此，当然其透明效果是一个假象，遇到后有动的物体就暴露无疑了。不过作为一个提示窗口，我想已经足够了。