Delphi等待动画TAnimate使用

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

2、双击Button1按钮进入事件方法，写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

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按钮看到动态效果