3、在單選分組框中加進如下代碼：
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
MediaPlayer1.Close; Table1.Close;
case radiogroup1.ItemIndex of
0:begin MediaPlayer1.FileName:=ex1.wav;
Table1.TableName:=ex1.dbf;end;
1:begin MediaPlayer1.FileName:=ex2.wav;
Table1.TableName:=ex2.dbf;end;
2:begin MediaPlayer1.FileName:=ex av;
Table1.TableName:=ex3.dbf; end;
end;
Table1.Open; MediaPlayer1.Open;
end;
4、為了適當修改MediaPlayer元件中各個按鈕的功能，需要編寫MediaPlayer元件的click事件的代碼，主要是修改“快進”及“快退”的功能，使其每次移動一句，且移動後直接播放，而不用再按“播放”按鈕。為達到這個功能，在過程的一開始，設置DoDefault參數為False,表示不執行默認的動作，在過程的中間部分，加上必要的處理，在過程的結束處，寫上根據按下的按鈕執行相應功能語句。 procedure TForm1.MediaPlayer1Click(Sender: TObject;
Button: TMPBtnType; var DoDefault: Boolean);
begin
DoDefault:=False;
with MediaPlayer1 do
begin
case Button of
btPlay : begin
if isend=true then
begin
Table1.first; Position:=start;
CurrentPlay:=1; CurrentDisp:=1;
isend:=False;
RichEdit1.lines.clear; RichEdit1.lines.add
(演講內容);
end;
CurrentButton:=btPlay;
end;
btStop : begin CurrentButton:=btStop;
isend:=true;
end;
btpause: if CurrentButton=btPlay then
CurrentButton:=btpause
else if CurrentButton=btpause then
CurrentButton:=btPlay;
btPrev: begin CurrentButton:=btPrev;
Table1.Prior;
Position:=Table1.fIEldvalues
[STARTTIME];
CurrentButton:=btPlay;
end;
btBack: begin CurrentButton:=btBack;
Table1.first; Position:=start;
CurrentPlay:=1;
CurrentDisp:=1;
RichEdit1.lines.clear;
RichEdit1.lines.add
(演講內容);
CurrentButton:=btPlay;
end;
btNext: begin CurrentButton:=btNext;
Table1.Next;
Position:=Table1.fIEldvalues
[STARTTIME];
CurrentButton:=btPlay;
end;
end;
case CurrentButton of
btPlay: Play;
btpause:pause;
btStop:Stop;
end;
end;
end;
