8.34编程实例(5) 7.Labe1的属性与说明见表8-10 Open Dialog1决定打开的文件类型,主要是来设置它的 Filter属性。 Fite属性设置如图8-10所示。详见本教程P143页 8. Guage1的属性及说明见表8-1,详见本教程P143页 9. Timer1的主要属性 Timer1主要是用来定时更新多媒体组件的播放状态,只要将它的 Enable属性设置为 False,将 iNterval|属性设置为100。 10.主要程序代码 procedure TForm1. MediaPlayer 1 Click(Sender: TObject; Button TMPBtnType var DoDefault: Boolean) begin case Button of beLay:∥播放按钮 begin mediaplayer 1. Notify: =true Timer 1. Enabled = True end: Inprise Dephi8.3.4 编程实例（5） 7. Label1的属性与说明见表8-10 OpenDialog1决定打开的文件类型，主要是来设置它的Filter属性。 Filter属性设置如图8-10所示。详见本教程P143页 8. Guage1的属性及说明见表8-11,详见本教程P143页。 9. Timer1的主要属性 Timer1主要是用来定时更新多媒体组件的播放状态，只要将它的 Enable属性设置为False，将Interval属性设置为100。 10. 主要程序代码 procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin case Button of btPlay ://播放按钮 begin mediaplayer1.Notify:=true; Timer1.Enabled := True ; end;