delphi实现透明窗口同时任务栏隐藏代码

时间:2013-04-11 22:56来源:知行网www.zhixing123.cn 编辑:麦田守望者

今天用delphi写一个小程序的时候想使我的窗口在任务栏影藏，同时有渐变的效果从透明变过来。在fromcreate中写了一个api使窗口能够在任务栏隐藏的：

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW );

写完这个之后发现我调用form1.alphablendvalue更改窗口的透明度没有效果了，百思不得其解，于是查了一下用api设置窗口透明属性的：

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_LAYERED);//

这个时候才恍然大悟，原来设置窗口的style只是分别设置了两个，当然只有一个生效了，所以要这么写

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW Or WS_EX_LAYERED);

然后调用：

SetLayeredWindowAttributes(Self.Handle,0,alphacount,LWA_ALPHA);

设置它的透明度 alphacount ，这个是最大到255的；

同时还要注意使用setwindowlong中不能是这个参数WS_EX_TRASPARENT 这个也是设置窗口透明的，但是如果设置了，在之后修改窗口的透明度的时候会修改不了，所以应该用WS_EX_LAYERED。