Delphi 半透明窗体,窗体以及控件透明度

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

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

delphi设置窗口透明

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

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

帖子1：http://zhidao.baidu.com/link?url=PC1llYKS1ak_QaRvMKNceBOI00W50IcleDm4qg3bP3VZwCSV_c7TDaOznlYMFZwTd2kt2jFN56wuzuD8cpjLv_

delphi 窗体的淡入淡出效果

请问下:delphi 窗体的淡入淡出效果怎么做?
也就是说:刚开始运行窗体时,窗体从完全透明慢慢变到不透明.关闭窗体时.窗体从不透明，慢慢变到完全透明...
有没有人知道怎么做，教下小弟,谢谢

找到主窗体的AlphaBlend属性和AlphaBlendValue属性。将AlphaBlend设置为True。然后更改AlphaBlendValue属性的值即可。值从：0-255。窗体的淡入淡出效果，
可以在程序启动的时候用时钟控件，动态增加AlphaBlendValue的值。关闭则相反。

用API函数太麻烦，2000以上的系统可以用窗体的AlphaBlendValue属性来控制窗体的透明度，前提是AlphaBlend设为True。
AlphaBlendValue最大值255，最小0
做一个0-255的循环就好。帖子2：http://jingyan.baidu.com/article/ca41422fde51231eae99eda4.html

方法/步骤

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;

   
3. 3

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