Delphi窗体GlassFrame实现在win7下的Aero Glass效果

从Vista到Windows7，都有AERO的特效。

这种效果是由DWM（Desktop Window Manager）来控制的。对于一般的程序，缺省将在窗口边框应用这种效果。但如果我们想要更多的控制，比如让客户区的一部分也呈现这种效果，那也非常的简单。不需要我们在程序里做任何复杂的算法，我们只需要调API（在dwmapi.dll中），交给DWM去做就可以了。

Delphi中可通过设置Form的GlassFrame来实现客户区有AERo特效。D2007以后都有，之前版本就不知道了。

这是默认设置。

只要设置Enabled和SheetOfGlass就可以有可以了。

运行后效果。