讓 TMediaPlayer 自動連續播放

bestlong

設定 MediaPlayer1 的 AutoRewide 屬性為 True
然後在 OnNotify 事件中加入下列程式：

1. procedure TForm1.MediaPlayer1Notify(Sender: TObject);
   
2. begin
   
3.   if MediaPlayer1.NotifyValue = nvSuccessful then
   
4.     MediaPlayer1.Play;
   
5. end;

複製代碼