Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？
Delphi编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？ 要能够随着窗体的移动变换看到的背景，比如我的程序在桌面上运行，我拖动程序窗口时，能...
Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？ 要能够随着窗体的移动变换看到的背景，比如我的程序在桌面上运行，我拖动程序窗口时，能够透过毛玻璃看见桌面。 请提供源代码，或者是可用的源代码素材。一经采用，悬赏提升至100分或更高。
展开
3个回答
展开全部
如果是运行在win7系统里，直接用D2010及以上版本的GlassFrame属性即可
如果是运行在xp系统里，可以用GDI+ 截取屏幕然后将覆盖区域做模糊效果之后绘制在Form上即可
把事件写到Onpaint事件里即可，虽然不是真的毛玻璃但是在外观上是这样的效果
如果是运行在xp系统里，可以用GDI+ 截取屏幕然后将覆盖区域做模糊效果之后绘制在Form上即可
把事件写到Onpaint事件里即可，虽然不是真的毛玻璃但是在外观上是这样的效果
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
我来回答
delphi7 中，form有属性：
Form1.AlphaBlend:=true; //开启模糊效果
Form1.AlphaBlendValue :=150; //设置清晰度：0~255 数值越低越模糊
你试试看
delphi7 中，form有属性：
Form1.AlphaBlend:=true; //开启模糊效果
Form1.AlphaBlendValue :=150; //设置清晰度：0~255 数值越低越模糊
你试试看
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这个很简单，VISTA和Win7增加了一个dll，叫dwmapi.dll，这个是用于实现毛玻璃半透明效果的，程序只要调用这个dll就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
