Delphi等待动画TAnimate使用

1、打开Delphi7集成开发环境，在View--Component List找到TAnimate控件放到默认工程的Form1窗体，并放一个Button1按钮。

2、双击Button1按钮进入事件方法，写如下代码：procedure TForm1.Button1Click(Sender: TO芟鲠阻缒bject);var i,sum:Integer;begin sum:=0; animate1.Active:=True; for i:=0 to 10000 do begin Sleep(100); sum:=sum+i; if sum>1000 then begin Animate1.Active:=False; Break; end; end;end;

3、设置Animate1的commonAVI属性为 aviEmptyRecycle

4、F9运行程序，点击button按钮并没看到动态效果，这是因为我们在win7以上电脑这样操作是不能实现的，但是可以设置自己的*.avi文件来播放。

5、设置Animate1的commonAVI属性为aviNone，设置fileName属性为：C:\Program Files (x86)\Borland\Delphi7\Demos\CoolStuf\cool.avi 我们本地计算机的一个avi文件

6、F9运行程序，点击button按钮看到动态效果