在應(yīng)用程序中引入圖片淡入及淡出，可以讓用戶界面更加美觀。以前報刊雜志中介紹
的常用方法有兩種：一是自己寫程序，諸個象素進行混合漸變；二是使用DirectX，建立一
個帶Alpha通道的Surface。第一種，效果可以自己控制，但比較麻煩，而且一般不容易生
成硬件優(yōu)化的代碼；第二種速度很快，卻需要使用DirectX庫。

    本文結(jié)合Delphi實例代碼，介紹兩種簡單快速的實現(xiàn)方法，算是一個總結(jié)吧，希望能
對初學者有所幫助。

一：AnimateWindow函數(shù)的使用：
    （一）函數(shù)原型：
      BOOL AnimateWindow(
         HWND hwnd,     // 要進行特效顯示的窗體的句柄
         DWord dwTime,  // 動畫持續(xù)時間，以毫秒為單位
         DWORD dwFlags  // 動畫類型
         );
    （二）參數(shù)設(shè)置：
         hwnd ：用“窗體名.handle”即可，如：Form1.handle;
         dwTime:一般情況下用400比較合適，我偏向于1000；
         dwFlags：可以設(shè)為多種效果，詳見MSDN，這里我只介紹淡入淡出用到的參數(shù)AW_BLEND；
                  如果是淡入，設(shè)為AW_BLEND即可，如果是淡出，設(shè)為AW_BLEND or AW_HIDE。
    （三）程序?qū)嵗?BR>         新建一個工程，在生成的窗體Form1上添加一個按鈕Button1，Button1的Caption設(shè)為“淡
         出”；接下來添加如下兩段代碼，實現(xiàn)淡入淡出：
         1、淡入：雙擊Form1，在其“OnCreate”事件中添加：
             AnimateWindow(Form1.Handle,1000,AW_BLEND);
         2、淡出：雙擊Button1，在其“OnClick”事件中添加：
             AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);
             form1.Close;//關(guān)閉窗口

         整個程序的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;
二、AlphaBlend屬性結(jié)合Timer組件：
     （一）原理：
          在Delphi6.0以上（6.0以下我不了解），每個窗體有AlphaBlend屬性和AlphaBlendValue
          屬性，將AlphaBlend屬性設(shè)為True，然后在Timer組件中隨著時間改變AlphaBlendValue的
          值（0-255）即可。
     （二）程序?qū)嵗?BR>          新建一個工程，并添加一個窗體Form2，將其AlphaBlend屬性設(shè)置為True;在窗體Form1上添
          加一個按鈕Button1，Caption屬性設(shè)為“淡入”，在Form2上添加一個按鈕Button1，Caption
          屬性設(shè)為“淡出”；另外，在Form2上添加兩個Timer組件Timer1、Timer2，將它們的Interval
          屬性設(shè)為3（越大動畫時間越長），Enable設(shè)為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;
         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;