unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  form2.AlphaBlendValue:=form2.AlphaBlendValue-3; //透明減少
  if form2.AlphaBlendValue=0 then form2.Close;  //當(dāng)透明度為0時form2關(guān)閉
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  timer2.Enabled:=true;         //啟動timer2
  timer1.Enabled:=false;       //關(guān)閉timer1
end;

end.