824编程实例(3) 【例8-2】对【例8-1】的改进,添加搜索播放帧的功能。界面如图8-3所示。 图8-3动画组件演示 添加一个 Tbutton控件和一个Tedt控件,输入相关代码: procedure TForm1. Button 3Click(Sender: TObject) begin animate 1. Seek(strtoint(edit1text)) ∥ strtoint( edittext)是将edt1teot的字符转换为数值型。 end 【例8-3】这个例子是对上面两个例子的进一步改进。主界面如图8-4所示 1.添加一个 Listbox组件 设置它的 Iitems属性,在 items属性中分别输入 avinone, avi File, aviCopy Files, aviDelete File, aviEmpty Recycle, aviF Computer aviFindFile, aviFindFolder, aviRecycleFile 2.添加一个 Tlabel组件 Inprise Dephi8.2.4 编程实例(3) 添加一个Tbutton控件和一个Tedit控件，输入相关代码： procedure TForm1.Button3Click(Sender: TObject); begin animate1.Seek(strtoint(edit1.text)); //strtoint(edit1.text)是将edit1.text的字符转换为数值型。 end; 【例8-2】 对【例8-1】的改进，添加搜索播放帧的功能。界面如图8-3所示。 图8-3 动画组件演示 【例8-3】这个例子是对上面两个例子的进一步改进。主界面如图8-4所示。 1. 添加一个Tlistbox组件 设置它的items属性，在items属性中分别输入aviNone，aviCopyFile， aviCopyFiles，aviDeleteFile，aviEmptyRecycle，aviFindComputer， aviFindFile，aviFindFolder，aviRecycleFile。 2. 添加一个Tlabel组件