设置表单的透明度

 

方法一：

 

    表单属性有两项：

 

 

    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