Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？

如果是运行在win7系统里，直接用D2010及以上版本的GlassFrame属性即可

如果是运行在祥搜xp系统里，可以用GDI+ 截取屏幕然后将覆盖区域做模糊效果之后绘制穗蠢在Form上即可

把事件写到Onpaint事件里即可，虽然不是真的毛玻谨族历璃但是在外观上是这样的效果

1、首先打开3dmax打开一个实例，原来的淋浴屏风是透明的清波材质，将把他改为白色磨砂玻璃材质。

2、首先按“M”键调出“材质设置面板”，选择一个空白的材质球。点击“高拿标准”按钮，在d出的对话框中选择“vray材质”。

3、设置“漫反射”颜色为240，这比较接近现实生活中磨砂玻璃的颜色。

4、在“折射”通戚饥搭道里添加“衰减”程序贴图。

5、“前侧”设置为220，“后侧”设置为0 ，“衰减方式”设置为“垂直/平行”。

6、根据经验把“光泽度”设置为0.7即可，这个值的模糊效果肢仿与真实的磨砂玻璃接近。记得勾选“影响阴影”。

7、将设置好的材质赋予场景中的淋浴屏风模型，如下图渲染后的效果成功设置磨砂玻璃材质。

---