Question

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

Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？ 要能够随着窗体的移动变换看到的背景，比如我的程序在桌面上运行，我拖动程序窗口时，能够透过毛玻璃看见桌面。 请提供源代码，或者是可用的源代码素材。一经采用，悬赏提升至100分或更高。

Answer 1

QQ那个右下角提示框就是那么做的,烦人,我看到就骂.因为这框不到完全不透明时,界面就不能进行任何操作.真烦.其实要做到这一点,非常容易,DELPHI本身就具备这个功能!
你先把窗体AlphaBlend属性设置为真.再把它的AlphaBlendValue值设为0;
在窗体上拖一个 Timer1计时器控件,把它的Enabled设置为false
然后在它的Timer1Timer 事件中写代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10000000 do
begin
if i mod 1000 =0 then
begin
Form1.AlphaBlend :=true;
if Form1.AlphaBlendValue<255 then
Form1.AlphaBlendValue:= Form1.AlphaBlendValue+1;
end;
end;
end;
再在窗体的FormShow事件中
procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
运行程序,OK,到手了
现在就试试吧,赶快给分洛

Answer 2

不用多复杂的将Form的AlphaBlend属性设置为True，之后调整Form的AlphaBlendValue属性，255为不透明，数字越小透明度越大

Answer 3

楼上的那位，呵呵，你那压根不是windows7的那种也根本不是楼主要的那种效果！delphi7想要做简单的就得使用分层窗口Updatelayeredwindow配合GDI+以及一张类似毛玻璃的效果的png图片,这个网上还有有例子的，不是很难的。但有一点一但指定了分层属性那么窗口和控件将不再接收 WM_PATIN消息了，所以后面的都得自己处理了，目前本人已经自己琢磨出了一套方法，不是很难！

Answer 4

你说的是半透明效果吧？
窗体中的AlphaBlend设置为true
AlphaBlendValue再调整到你要效果，取值范围为0到255，好像是越小越透明，你试试就知道了