利用MediaPlayer 組件實(shí)現(xiàn)一個(gè)播放wav聲音文件的播放器。用戶可自己選擇要打開的 wav文件，并在播放時(shí)有播放進(jìn)度提示（如圖）。首先在在窗體中添加1個(gè)MediaPlayer組件MediaPlayer1、1個(gè)標(biāo)簽組件Label1、2個(gè)按鈕組件（“打開文件”－Button1，“退出”－Button2），1個(gè)時(shí)鐘組件Timer1和1個(gè)OpenDialog組件OpenDialog1，一個(gè)gauge組件（用作播放進(jìn)度顯示）。進(jìn)度提示條每隔0.1秒更新一次進(jìn)度。將程序補(bǔ)充完整。

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秒更新一次進(jìn)度 
gauge1.maxvalue := MediaPlayer1.length; 
gauge1. （⑥）   := MediaPlayer1.Position;   //更改進(jìn)度 
end;  
procedure TForm1.Button2Click(Sender: TObject); 
begin   
close; 
end;

在窗體上畫一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫3個(gè)文本框，名稱分別為Text1、Text2和Text3；然后畫4個(gè)標(biāo)簽，名稱分別為Label1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”、“＝”符；再建立一個(gè)含有4個(gè)單選按紐的RadioGroup組件，名稱為RadioGroup 1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后，在Text1、Text2中輸入兩個(gè)整數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Text3，程序運(yùn)行情況如圖所示。請(qǐng)?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

procedure TForm1.Button1Click(Sender: TObject); 
var 
   x1,x2,y :Integer; begin 
   x1 := StrToInt(Edit1.（①）);    
     x2 := StrToInt(Edit2.（②）);    
    Case （③）.ItemIndex of    
    0: y := x1 + x2 ;    
   1: y := x1 - x2;    
   2: y := x1 * x2;     
    3: y := x1 Div x2;   
 End; 
 Edit3. （④）   := IntToStr(⑤);  
end;