当年Vista系统刚出来的时候，最吸引人的莫过于半透明磨砂的窗体界面了，迷倒了多少人。这个界面技术随即引发了编程界的一阵骚动，很多人都在问：如何实现这一界面效果？当然，在Vista下倒是很简单，系统本身支持，所以几乎不需要写一句代码，但是当时还是XP的天下，于是大家就可以研究在XP下如何实现这一效果。
最先实现的应该是桌面天气秀，还有笨笨钟，后来鱼鱼软件的鱼鱼桌面秀也成功在XP下模仿了Vista的侧边栏，的确，让人很激动，但是他们保密，问也问不到究竟是用了什么技术，记得当年大富翁论坛( 比较著名的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; 我们假设放置控件的窗体名字叫ComponentForm，当我们鼠标左键按下并移动背景窗体的时候，控件窗体跟着同步移动即可。
当然，有时候我们可以直接用代码生成背景窗体，这样的话可以减少一些程序体积，生成背景窗体我们可以用一个函数叫CreateWindowEx，注意这里要用带Ex的，表示会有附加参数，我们只要把这个函数的第一个参数设置为WS_EX_LAYERED就可以了，他表示一个额外的层属性。
两个方法都可以，我们既可以直接用2个窗体，也可以用CreateWindowEx函数来生成背景窗体，效果是一样的，看个人喜好。