完美PNG半透明窗体解决方案

最新推荐文章于 2020-12-21 15:10:53 发布

weixin_30809333

最新推荐文章于 2020-12-21 15:10:53 发布

阅读量130

点赞数

原文链接：http://www.cnblogs.com/zerovirs/p/3446395.html

版权

当年Vista系统刚出来的时候，最吸引人的莫过于半透明磨砂的窗体界面了，迷倒了多少人。这个界面技术随即引发了编程界的一阵骚动，很多人都在问：如何实现这一界面效果？当然，在Vista下倒是很简单，系统本身支持，所以几乎不需要写一句代码，但是当时还是XP的天下，于是大家就可以研究在XP下如何实现这一效果。

最先实现的应该是桌面天气秀，还有笨笨钟，后来鱼鱼软件的鱼鱼桌面秀也成功在XP下模仿了Vista的侧边栏，的确，让人很激动，但是他们保密，问也问不到究竟是用了什么技术，记得当年大富翁论坛(http://www.delphibbs.com 比较著名的Delphi论坛)上还为此进行过讨论，最后有个ID叫小雨哥的人提供了一个方法(当然是不是他原创我不得而知，小雨哥目前在盛大网络，见过一面，无限膜拜中)，下面是Delphi的实现代码：

 
    01. 
    var 
   
    02. 
    pt1, pt2 : TPoint; 
   
    03. 
    sz : TSize; 
   
    04. 
    bf : TBlendFunction; 
   
    05. 
    begin 
   
    06. 
      
    07. 
    bitmap:=tgpbitmap.Create(PNGFile);//这个PNGFile是具体的PNG图片路径 
   
    08. 
    pt1 := Point(left,top); //窗口做上角的坐标 
   
    09. 
    pt2 := Point(0, 0); //这个就不用说了，一看见（0，0）就应该明白了 
   
    10. 
    sz.cx := bitmap.GetWidth;  //尺寸不要超过图像大小，不然窗口就什么都没有了，连个影子都没有 
   
    11. 
    sz.cy := bitmap.GetHeight;  //同上 
   
    12. 
    bf.BlendOp := AC_SRC_OVER; //这些死记就行了 
   
    13. 
    bf.BlendFlags := 0;                  //同上 
   
    14. 
    if (nTran<0) or (nTran>255) then nTran:=255; 
   
    15. 
    bf.SourceConstantAlpha := nTran;  //同上 
   
    16. 
    bf.AlphaFormat := AC_SRC_ALPHA; //同上 
   
    17. 
    DeleteObject(bmp); //前面就是在这里犯的错误，不然占用的内存会无限增大 
   
    18. 
    bitmap.GetHBITMAP(0,bmp); // HBITMAP是windows标准位图格式，支持透明，这里是从tgpbitmap 转化成 HBITMAP 
   
    19. 
    DeleteDC(DC); 
   
    20. 
    DC := CreateCompatibleDC(Canvas.Handle);  
   
    21. 
    old_bmp := SelectObject(DC, bmp);  
   
    22. 
    UpdateLayeredWindow(Handle, Canvas.Handle, @pt1, @sz, DC, @pt2,0, @bf,ULW_ALPHA);//调用UpdateLayeredWindow实现 
   
    23. 
    end;

这个方法其实是生成一个PNG的窗体，我们知道，PNG图片是具有Alpha属性的，所以，如果PNG是半透明磨砂装的，那么生成的窗体也就是半透明磨砂装的，注意，上面的代码需要使用GDIPlus类uses gdipapi, gdipobj;

我们这里不讨论这段代码，这段代码是别人写的，看似非常完美，比如日期查询器的系统初始化界面就可以由上面的代码生成：

但是这段代码有个致命的问题，你可以试试在Form上面放一些控件，比如button，edit等，再次编译你会神奇的发现，所有的控件都不显示，这是怎么回事呢？通过查阅MSDN，我们发现问题出在UpdateLayeredWindow函数上。

MSDN中，关于该函数的Remarks中有这样一段说明：

The UpdateLayeredWindow function maintains the window's appearance on the screen. The windows underneath a layered window do not need to be repainted when they are uncovered due to a call to UpdateLayeredWindow, because the system will automatically repaint them. This permits seamless animation of the layered window.

大意是说，使用这个函数以后，下一层窗体不会再重新绘制，也就是说，窗体不会响应Onpaint事件来重绘所有控件，导致控件无法看见，但是实际上控件是存在的，你可以在响应位置上点击一下button，你会发现button依然会响应点击事件，但就是看不见。

这就头疼了，如果不能使用控件，或者说控件看不见，光一个窗体再好看有什么用呢？其实微软貌似是用这个函数做无缝连接动画用的，MSDN说的很清楚嘛：This permits seamless animation of the layered window.

嗯，好吧，既然这个方法不行，那就换一个吧，于是有人想到了使用2个窗体来解决。

2个窗体怎么解决呢？其实也很简单，一个窗体作为半透明的PNG放在后面，一个窗体作为放置控件的窗体放在前面，然后只要2个窗体同步移动就可以了，就拿日期查询器来说吧，登陆窗体：

这个窗体上下都有半透明的边框，上面也有控件显示，也许你不好理解，如果我分解一下：

怎么样？这样你就发现了，其实是2个窗体，后面一个背景窗体，前面一个Border:=none的控件窗体，然后两个窗体同步移动即可，这样我们就伪造了一个半透明的窗体。事实上，很多软件也是这么做的，包括有些带阴影的窗体也是同样原理。

至于同步移动，也很简单，处理下OnMove消息就可以了：

 
    01. 
    function WndNewProc(Wnd: HWND; uMsg: UINT; wPar: WPARAM; lPar: LPARAM): LRESULT; stdcall; 
   
    02. 
    var Rect: TRect; 
   
    03. 
    begin 
   
    04. 
    Result := 0; 
   
    05. 
    case uMsg of 
   
    06. 
    WM_LBUTTONDOWN: SendMessage(Wnd, WM_SYSCOMMAND, SC_MOVE+2, 0); 
   
    07. 
    else 
   
    08. 
    begin 
   
    09. 
    if ((uMsg = WM_MOVING) or (uMsg = WM_MOVE)) and GetWindowRect(Wnd, Rect) then 
   
    10. 
    SetWindowPos(ComponentForm.Handle, 0, Rect.Left, Rect.Top, 0, 0, SWP_NOSIZE); 
   
    11. 
    Result := DefWindowProc(Wnd, uMsg, wPar, lPar); 
   
    12. 
    end; 
   
    13. 
    end; 
   
    14. 
    end;