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

当年Vista系统刚出来的时候，最吸引人的莫过于半透明磨砂的窗体界面了，迷倒了多少人。这个界面技术随即引起了编程界的一阵骚动，不少人都在问：如何实现这一界面效果？固然，在Vista下却是很简单，系统自己支持，因此几乎不须要写一句代码，可是当时仍是XP的天下，因而你们就能够研究在XP下如何实现这一效果。html

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

 
   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;编程

咱们这里不讨论这段代码，这段代码是别人写的，看似很是完美，好比日期查询器的系统初始化界面就能够由上面的代码生成：windows

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

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.app

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

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

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

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;

咱们假设放置控件的窗体名字叫ComponentForm，当咱们鼠标左键按下并移动背景窗体的时候，控件窗体跟着同步移动便可。

固然，有时候咱们能够直接用代码生成背景窗体，这样的话能够减小一些程序体积，生成背景窗体咱们能够用一个函数叫CreateWindowEx，注意这里要用带Ex的，表示会有附加参数，咱们只要把这个函数的第一个参数设置为WS_EX_LAYERED就能够了，他表示一个额外的层属性。

两个方法均可以，咱们既能够直接用2个窗体，也能够用CreateWindowEx函数来生成背景窗体，效果是同样的，看我的喜爱。