利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个

利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。

procedure TForm1.Button1Click（Sender： TObject）； beginif OpenDialog1.Execute Then   Begin     MediaPlayer1.filename := OpenDialog1. （①） ;      Label1.（②） := OpenDialog1.filename;      MediaPlayer1.open;    //打开声音文件      MediaPlayer1. （③）    ;  //开始播放      Timer1.enabled := （④）   ;   end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Interval :=  （⑤） ;   //每隔0.1秒更新一次进度 gauge1.maxvalue := MediaPlayer1.length; gauge1. （⑥）   := MediaPlayer1.Position;   //更改进度 end;  procedure TForm1.Button2Click(Sender: TObject); begin   close; end;

正确答案：①filename；②caption；③play true；④100；⑤progress；⑥progress

答案解析：略