unit1.pas

有关多媒体的各个细节

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls;
const MaxbmpNum=8;
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    Button3: TButton;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MainDir:String[80];//主程序目录
    Cartoon:Array[1..8] of TBitmap;//动画数组
    CanPlayFlag:Boolean;//播放开关
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
//窗体创建时，初始化动画数组
procedure TForm1.FormCreate(Sender: TObject);
var
 i:Integer;
begin
 MainDir:=ExtractFilePath(ParamStr(0));//获取主程序目录
 for i:=1 to MaxBmpNum do//装入图片到动画数组中
  begin
   Cartoon[i]:=TBitmap.Create;
   Cartoon[i].LoadFromFile(MainDir+'bmp\'+'child'+IntToStr(i)+'.bmp');
   if i=1 then//自动调整动画播放对象的大小
    begin
     Image1.Width:=Cartoon[i].Width;
     Image1.Height:=Cartoon[i].Height;
    end;
  end;
 CanPlayFlag:=False; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if CanPlayFlag then
  begin
   Image1.Canvas.Draw(0,0,Cartoon[Timer1.Tag]);//显示图片
   if Timer1.Tag>MaxBmpNum-1 then//放完，重新开始
     Timer1.Tag:=1
   else
     Timer1.Tag:=Timer1.Tag+1;
  end;
end;

//开始播放
procedure TForm1.Button1Click(Sender: TObject);
begin
 CanPlayFlag:=True;
end;
//停止播放
procedure TForm1.Button2Click(Sender: TObject);
begin
 CanPlayFlag:=False;
end;
//退出
procedure TForm1.Button3Click(Sender: TObject);
begin
 CanPlayFlag:=False;
 Close;
end;
//窗体消亡时释放动画对象
procedure TForm1.FormDestroy(Sender: TObject);
var
 i:Integer;
begin
 for i:=1 to MaxBmpNum do
  begin
   Cartoon[i].Free;//释放动画对象
  end;
end;
//调整播放速度
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Timer1.Interval:=100+TrackBar1.Position * 100;
end;

end.