824编程实例(7) 双击 listbox1就可以播放A文件} procedure TForm1. ListBox1DblClick(Sender: Tobject) begin animate 1. Active =true: button 1. Enabled: =false button 2. enabled: =true end “搜索”按钮} procedure TForm1. Button3Click(sender: TObject begin animate. Seek(strtoint(edit 1. text ) end {“停止”按钮} procedure TForm1. Button2Click(Sender: TObject begin animate. Stop button 1. Enabled: =true button2 Enabled =false end Inprise Dephi8.2.4 编程实例(7) ｛双击listbox1就可以播放Avi文件｝ procedure TForm1.ListBox1DblClick(Sender: TObject); begin animate1.Active:=true; button1.Enabled:=false; button2.Enabled:=true; end; ｛“搜索”按钮｝ procedure TForm1.Button3Click(Sender: TObject); begin animate1.Seek(strtoint(edit1.text)); end; ｛“停止”按钮｝ procedure TForm1.Button2Click(Sender: TObject); begin animate1.Stop; button1.Enabled:=true; button2.Enabled:=false; end;