试题详情
简答题 利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。 procedure TForm1.Button1Click（Sender： TObject）；  begin if 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

  • 关注下方微信公众号，在线模考后查看

热门试题