Delphi編程播放無聲音的AVI動畫

本實例將演示如何在程序運行過程中放映沒有聲音的AVI動畫文件。

　　向窗體上添加一個TAnimate組件，並且設置它的CommonAVI屬性為aviCopyFile，這樣在TAnimate組件中就會顯示拷貝文件的動畫。添加組件後的窗體如圖1所示。


圖1 添加組件後的窗體
　　在窗體的初始化過程中添加以下代碼：

procedure TForm1.FormCreate(Sender: TObject);
begin
　self.Animate1.Active:=true;
end;
　　這樣，在程序運行的初期，程序就會激活TAnimate組件，從而開始播放拷貝文件的動畫aviCopyFile。

　　程序代碼如下：

unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type
　TForm1 = class(TForm)
　Animate1: TAnimate;
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;

var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.FormCreate(Sender: TObject);
begin
　self.Animate1.Active:=true;
end;

end.
　　保存文件，然後按F9鍵運行程序，程序運行結果如圖2所示。


圖2 程序運行結果
　　本程序中沒有調用磁盤中的AVI動畫文件，讀者在自己的應用程序中可以通過指定TAnimate組件的FileName屬性來播放沒有聲音的AVI動畫文件。