delphi TAnimate组件

　　交流无极限,专栏里若有不当之处,请你指正... QQ496020900
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　在组建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.