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;

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

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