很简单了 现在，适用所有控件和窗体：

delphi设置窗口透明

form1.AlphaBlend :=true; //透明
form1.AlphaBlendValue :=180; //透明度
form1.TransparentColor :=true; //透明颜色

-------------------------------------------------------------

 

delphi 窗体的淡入淡出效果

请问下:delphi 窗体的淡入淡出效果怎么做? 
也就是说:刚开始运行窗体时,窗体从完全透明慢慢变到不透明.关闭窗体时.窗体从不透明，慢慢变到完全透明...
有没有人知道怎么做，教下小弟,谢谢
找到主窗体的AlphaBlend属性和AlphaBlendValue属性。将AlphaBlend设置为True。然后更改AlphaBlendValue属性的值即可。值从：0-255。窗体的淡入淡出效果，
可以在程序启动的时候用时钟控件，动态增加AlphaBlendValue的值。关闭则相反。
用API函数太麻烦，2000以上的系统可以用窗体的AlphaBlendValue属性来控制窗体的透明度，前提是AlphaBlend设为True。
AlphaBlendValue最大值255，最小0
做一个0-255的循环就好。




Delphi调节窗口透明度
  •  
  • |
  • 浏览：51
  • |
  • 更新：2015-02-07 16:01

使用Delphi7的TrackBar组件实现用滑尺调节窗口透明度。

工具/原料

  • Delphi7

方法/步骤

    1. 1

      在窗体创建时将Form1的AlphaBlend属性设置为True。

      procedure TForm1.FormCreate(Sender: TObject);

      begin

        Form1.AlphaBlend:=True;

      end;

    2. 2

      使用TrackBar调节窗口透明度代码：

      procedure TForm1.TrackBar1Change(Sender: TObject);

      begin

      //  lbl3.Caption:=IntToStr(TrackBar1.Position)+'%';

      //  这一行使用Label3显示的透明度百分比

        Form1.AlphaBlendValue:=Byte(TrackBar1.Position*255 div TrackBar1.Max);

      end;

      Delphi 半透明窗体,窗体以及控件透明度_属性设置
    3. 3

      要注意的是，Form1的AlphaBlendValue属性接受的是byte类型，0为完全透明，255为完全不透明。