Delphi编程播放无声音的AVI动画

时间：2007-06-15 来源： 作者： 【字体：

减小

增大】 点击： 收藏 | 投稿

本实例将演示如何在程序运行过程中放映没有声音的AVI动画文件。

　　向窗体上添加一个TAnimate组件，并且设置它的CommonAVI属性为aviCopyFile，这样在TAnimate组件中就会显示拷贝文件的动画。添加组件后的窗体如图1所示。

图1添加组件后的窗体

　　在窗体的初始化过程中添加以下代码：

procedureTForm1.FormCreate(Sender:TObject);
begin
　self.Animate1.Active:=true;
end;
　　这样，在程序运行的初期，程序就会激活TAnimate组件，从而开始播放拷贝文件的动画aviCopyFile。

　　程序代码如下：

财软联盟 fs119.net

unitUnit1;
interface
uses

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

Dialogs,ComCtrls;

type
　TForm1=class(TForm)
　Animate1:TAnimate;
　procedureFormCreate(Sender:TObject);
private
　{Privatedeclarations}
public
　{Publicdeclarations}
end;

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

end.
　　保存文件，然后按F9键运行程序，程序运行结果如图2所示。

图2程序运行结果

　　本程序中没有调用磁盘中的AVI动画文件，读者在自己的应用程序中可以通过指定TAnimate组件的FileName属性来播放没有声音的AVI动画文件。

财.管家园.fs119.net

文章摘自网络,如有侵权,请与我们联系.

数据统计中！！