Delphi的Hint入门指导
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| tColor; Bmp.Canvas.Pen.Color := Application.HintColor; Bmp.Canvas.Rectangle(0, 0, Bmp.Width, Bmp.Height); Bmp.Canvas.Font.Color := Screen.HintFont.Color; R := Rect(0, 0, Bmp.Width, Bmp.Height); Inc(R.Left, 2); Inc(R.Top, 2); DrawText(Bmp.Canvas.Handle, PChar(AHint), -1, R, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly); end; initialization Application.ShowHint := False; HintWindowClass := TwdHintWnd; Application.ShowHint := True; end. 只需将该单元加入你的工程当中，然后运行程序，便可看到效果了，试试看，漂亮吧。 程序中重要部分已经作了注释，这里只说明几个重要的地方，首先是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; 玻璃提示窗口的原理大概如此，当然其透明效果是一个假象，遇到后有动的物体就暴露无疑了。不过作为一个提示窗口，我想已经足够了。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Delphi&BCB一线程序员开发经验下一篇: Delphi情结——永不消逝的精灵
关于Delphi的Hint入门指导的所有评论
