834编程实例(6) bt Pause:Tmer1.上 nabled:=Fase;/暂停按钮 bt stop:∥停止按钮 begin Timer1 enabled = False mediaplayer. Stop mediaplayer1 Position:=0;/使得 Gauge1的进度条回到o的地方 abel1 Caption:=单击打开按钮选择文件 end end Guage 1. MaxValue: MediaPlayer1 Length Guage1 Progress:= MediaPlayer1. Position;∥/来显示播放进度 end procedure TForm1. Button1Click(Sender: TObject begin OpenDialog1 Execute;/打开“打开”对话框 MediaPlayer1. FileName: =OpenDialog 1. FileName Labell. Caption: Open dialog 1. FileName if mediaplayer FileName="then Inprise Dephi8.3.4 编程实例（6） btPause: Timer1.Enabled := False ;//暂停按钮 btStop://停止按钮 begin Timer1.Enabled := False ; mediaplayer1.Stop; mediaplayer1.Position:=0;//使得Gauge1的进度条回到0的地方 label1.Caption:='单击打开按钮选择文件'; end; end; Guage1.MaxValue := MediaPlayer1.Length ; Guage1.Progress := MediaPlayer1.Position ;//来显示播放进度 end; procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Execute ;//打开“打开”对话框 MediaPlayer1.FileName := OpenDialog1.FileName ; Label1.Caption := OpenDialog1.FileName ; if mediaplayer1.FileName='' then