Delphi窗体任务栏隐藏和透明

来源:互联网 发布:游族网络林奇妻子韩薇 编辑:程序博客网 时间:2024/06/05 19:05
主窗体:把工程里的Application.MainFormOnTaskBar:=true ; 
改为 Application.MainFormOnTaskBar:=False ; 

在onshow 里加入:ShowWindow(Application.Handle, SW_HIDE); //不在任务栏显示 

就搞定.


透明: 设置窗体color和Transparentcolor颜色相同即可


子窗体:

今天用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。

原创粉丝点击