设置表单的透明度

方法一：

表单属性有两项：

AlphaBlend: ........ 控制是否透明

AlphaBlendValue：。。。。 设置透明度

比如：

Form1.color:=clWhite..........设置透明颜色

Form1.AlphaBlendValue:=TrackBar1.position;

方法二： Forms 文件有一个SetLayeredWindowAttributes函数，这个函数可以用来设置窗体的透明

如：

var hWindows:longInt;

begin

hWindows:=GetWindowLong(Handle,GWL_STYLE);保存原来的属性

SetWindowLong(handle,GWL_EXSTYLE,WS_EX_LAYERED); 设置新的扩展属性

SetLayeredWindowAttributes(Self.Handle,clRed,100,LWA_ALPHA); 设置透明度

end