本文整理自网络，侵删。
在组建win32下面，显示avi视频。
主要是以下几个属性的使用
active:设为true则将动画激活
commonavi:这个属性可将动画设为系统预定义的avi剪辑
filename:若不使用系统动画，在此处设置动画文件的路径，注意必须为avi动画，且该动画不能有声音
startframe,stopframe:开始和结束的帧数
示例如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.CommonAVI:=aviDeleteFile;
animate1.StartFrame:=1;
animate1.StopFrame:=24;
animate1.Active:=true;
end;
1.找到avi资源并显示：
self.OpenDialog1.Execute;
self.Animate1.FileName:=OpenDialog1.FileName;
Animate1.Open:=true;
2.播放：
Animate1.Active:=true; 或Animate1.Play(起始帧,结束帧,循环次数);循环次数为0表示无限循环
3.暂停：
Animate1.Stop;
4.释放：
Animate1.Open:=false;
5.重置：
Animate1.Reset;
TAnimate组件
1 属性
Center 决定TAnimate组件是否居中播放动画.
Repetitions 设置动画循环播放次数.
Open 指出动画是否已经载入内存.
FileName 指定包含动画的文件路径.
CommonAVI 决定是否播放Shell32.dll中的公用动画.
取值 作用.
aviNone 采用自定义动画
aviCopyFile 显示复制文件的动画.
aviFindFolder 显示系统查找的目录动画.
aviRecycleFile 将文件放入回收站的动画.
aviFindFile 显示系统中查找文件的动画.
aviEmptyRecycle 清空回收站的动画.
aviFindComputer 显示查找计算机的动画.
aviDeleteFile 删除文件的动画.
aviCopyFiles 显示复制多个文件的动画.
***************************************************************
Active 决定TGAnimate组件是否播放动画.
StartFrame 指定当组件激活时的起始帧.
StopFrame 指定当组件激活时的结束帧.
FrameCount 获取当前AVI的总帧数.
play 用于显示指定帧序列
stop 停止播放.
***********************************************************
procedure TForm1.btn1Click(Sender: TObject);
begin
ani1.Visible := True;
ani1.FileName := 'D:/我的文档/桌面/code30/data.avi';
ani1.Center := True;
ani1.Repetitions := 1;
if ani1.Open then
begin
ani1.Active := True;
end
else
begin
ShowMessage('无法找到!');
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
ani1.Visible := True;
ani1.CommonAVI := aviCopyFile;
ani1.Active := True;
CopyFile(PChar('D:/我的文档/桌面/Tcode/1.exe'),PChar('D:/我的文档/桌面/Tcode/heihei.exe'),False);
Sleep(3000);
ani1.Active := False;
ani1.Visible := False;
stat1.Panels[0].Text := '文件复制成功!';
end;
procedure TForm1.btn3Click(Sender: TObject);
var
toalCount : Integer;
begin
ani1.CommonAVI := aviFindFolder;
ani1.Visible := True;
if ani1.Open then
begin
toalCount := ani1.FrameCount ;
ani1.Play(0,toalCount,1);
end;
end;
end. 相关阅读 >>
Delphi xe 使用asqlite操作sqlite数据库乱码
Delphi string.split 按照任意字符串分割语句
Delphi xe5 程序中标识win max android ios程序代码分别实现
更多相关阅读请进入《Delphi》频道 >>
