吵吵   2011-03-03  阅读:3,385

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

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW );

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

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_LAYERED);//吵吵的博客-www.yiliaobaojia.com

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

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW Or WS_EX_LAYERED);

然后调用:

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

设置它的透明度 alphacount ,这个是最大到255的;吵吵发布www.chaochaoblog.com

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

吵吵微信朋友圈,请付款实名加入:

吵吵 吵吵

发表评论

电子邮件地址不会被公开。 必填项已用*标注