用两种方法快速简单的实现窗口淡入淡出

在应用程式中引入图片淡入及淡出，能够让用户界面更加美观。以前报刊杂志中介绍
的常用方法有两种：一是自己写程式，诸个象素进行混合渐变；二是使用DirectX，建立一
个带Alpha通道的Surface。第一种，效果能够自己控制，但比较麻烦，而且一般不容易生
成硬件优化的代码；第二种速度很快，却需要使用DirectX库。

本文结合Delphi实例代码，介绍两种简单快速的实现方法，算是个总结吧，希望能
对初学者有所帮助。

一：AnimateWindow函数的使用：
（一）函数原型：



BOOL AnimateWindow(

HWND hwnd,     // 要进行特效显示的窗体的句柄

         DWORD dwTime,  // 动画持续时间，以毫秒为单位

         DWORD dwFlags  // 动画类型

         );

    （二）参数配置：
         hwnd ：用“窗体名.handle”即可，如：Form1.handle;
         dwTime:一般情况下用400比较合适，我偏向于1000；
         dwFlags：能够设为多种效果，详见MSDN，这里我只介绍淡入淡出用到的参数AW_BLEND；
                  假如是淡入，设为AW_BLEND即可，假如是淡出，设为AW_BLEND or AW_HIDE。
    （三）程式实例：
         新建一个工程，在生成的窗体Form1上添加一个按钮Button1，Button1的Caption设为“淡
         出”；接下来添加如下两段代码，实现淡入淡出：
         1、淡入：双击Form1，在其“OnCreate”事件中添加：



AnimateWindow(Form1.Handle,1000,AW_BLEND);

2、淡出：双击Button1，在其“OnClick”事件中添加：



AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);

form1.Close;//关闭窗口

整个程式的procedure如下：



         procedure TForm1.FormCreate(Sender: TObject);

begin

  AnimateWindow(Form1.Handle,1000,AW_BLEND);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);

  form1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject); begin AnimateWindow(Form1.Handle,1000,AW_BLEND); end; procedure TForm1.Button1Click(Sender: TObject); begin AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND); form1.Close; end;

二、AlphaBlend属性结合Timer组件：
     （一）原理：
          在Delphi6.0以上（6.0以下我不了解），每个窗体有AlphaBlend属性和AlphaBlendValue
          属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendValue的
          值（0-255）即可。
     （二）程式实例：
          新建一个工程，并添加一个窗体Form2，将其AlphaBlend属性配置为True;在窗体Form1上添
          加一个按钮Button1，Caption属性设为“淡入”，在Form2上添加一个按钮Button1，Caption
          属性设为“淡出”；另外，在Form2上添加两个Timer组件Timer1、Timer2，将他们的Interval
          属性设为3（越大动画时间越长），Enable设为False；接下来添加如下4段代码：
         1、双击Form1上的Button1，在其“OnCreate”事件中添加：



Form2.AlphaBlendValue:=1;//窗体从透明开始

            Form2.Show;              //显示窗体Form2

            Form2.BringToFront;      //将窗体Form2移到前端

            Form2.Timer1.Enabled:=true;  //启动Timer1，控制窗体可见度-增加

         2、双击Form2上的Button1，在其“OnCreate”事件中添加：
            Timer2.Enabled:=true;       //启动Timer2，控制窗体可见度-减少
         3、双击Form2上的Timer1，在其“OnTimer”事件中添加：



            Form2.AlphaBlendValue:=Form2.AlphaBlendValue+1;//增加可见度

            Timer2.Enabled:=false;        //停止Timer2

            //假如可见度达到最大，停止Timer1

            if Form2.AlphaBlendValue=255 then  

timer1.Enabled:=false;

Form2.AlphaBlendValue:=Form2.AlphaBlendValue+1;//增加可见度 Timer2.Enabled:=false; //停止Timer2 //假如可见度达到最大，停止Timer1 if Form2.AlphaBlendValue=255 then timer1.Enabled:=false;

4、双击Form2上的Timer2，在其“OnTimer”事件中添加：



Form2.AlphaBlendValue:=Form2.AlphaBlendValue-1;//减少可见度

            Timer1.Enabled:=false;        //停止Timer1

            //假如可见度达到最小，停止Timer2

            if Form2.AlphaBlendValue=0 then

begin  

  timer2.Enabled:=false;

  Form2.Close;

end;

留下评论