824编程实例(5) 单击”结束”按钮,使得动画结束,同时”开始”按钮可以用、”结束”按钮不 用} procedure TForm1. Button2Click(Sender: TObject) begin animate 1.Stop button 1. Enabled: =true button2 Enabled: = false end "搜索”按钮的单击事件中的代码} procedure TForm1. Button3Click (Sender: TObject) begin animate 1. Seek(strtoint(edit1. text )) end {单击 listbox1可以选择aⅵ动画} procedure TForm1. ListBox1Click(sender: Tobject) begin animate Active False button 1. Enabled: =true button2 Enabled: =false e: uprise Dephi8.2.4 编程实例(5) {单击”结束”按钮,使得动画结束,同时”开始”按钮可以用、”结束”按钮不可以 用} procedure TForm1.Button2Click(Sender: TObject); begin animate1.Stop; button1.Enabled:=true; button2.Enabled:=false; end; {”搜索”按钮的单击事件中的代码} procedure TForm1.Button3Click(Sender: TObject); begin animate1.Seek(strtoint(edit1.text)); end; {单击listbox1可以选择avi动画} procedure TForm1.ListBox1Click(Sender: TObject); begin animate1.Active := False ; button1.Enabled:=true; button2.Enabled:=false;