824编程实例(1) 【例8-1】这个程序主要是说明 Animate的简单应用。界面如图8-2所示。 x 1.主要实现的功能 图8-2动画组件演示 单击开始按钮,就可以播放Aⅵ动画 ③单击结束按钮,就可中断动画的播放。 2设置对象的属性如表8-2所示 3.编写的代码 procedure TForm1. Button 1Click(Sender: TObject) begin animate1 Active:=true;/J开始播放A文件 en Inprise Dephi8.2.4 编程实例(1) 1. 主要实现的功能  单击开始按钮，就可以播放Avi动画。 单击结束按钮，就可中断动画的播放。 2. 设置对象的属性如表8-2所示 【例8-1】 这个程序主要是说明Tanimate的简单应用。界面如图8-2所示。 图8-2 动画组件演示 3. 编写的代码 procedure TForm1.Button1Click(Sender: TObject); begin animate1.Active:=true;//开始播放Avi文件 end;