824编程实例(4) 3.主要的代码 {在Form1 create事件中设置程序的初始值} procedure TForm1. FormCreate ( Sender TObject) begin Animate 1.Active: =false ∥表示一开始不播放Av文件。 图84动画组件演示 button 1. Enabled: =true button 2. Enabled: =false 因为还没有播放Aⅵ文件,所以这个”结束”按钮也不可以用 end 单击”开始”按钮,使得动画可以播放,同时”结束”按钮 可以用、”开始”按钮不可以用} procedure TForm1.Button 1Click(Sender: TObject) begin animate1 Active:=true;/始播放aⅵ文件 button 1. Enabled: = false button2 Enabled: =true end Inprise Dephi8.2.4 编程实例(4) 3. 主要的代码 ｛在Form1.create事件中设置程序的初始值｝ 图8-4 动画组件演示 procedure TForm1.FormCreate(Sender: TObject); begin Animate1.Active :=false; //表示一开始不播放Avi文件。 button1.Enabled:=true; button2.Enabled:=false; //因为还没有播放Avi文件,所以这个”结束”按钮也不可以用 end; {单击”开始”按钮,使得动画可以播放,同时”结束”按钮 可以用、”开始”按钮不可以用} procedure TForm1.Button1Click(Sender: TObject); begin animate1.Active:=true;//开始播放avi文件 button1.Enabled:=false; button2.Enabled:=true; end;