媒体控制方法(如Back、Close、Eject、Next、Open、Pause、PauseOnly、Play、Previous、Resume、StartRecording、Step或Stop等)执行结束时触发事件OnNotify.
通过OnNotify实现循环播放
procedure TForm5.MediaPlayer1Notify(Sender: TObject);
begin
if (mediaplayer1.Position=mediaplayer1.Length) and (flag>-1) then
begin
mediaplayer1.Rewind;
mediaplayer1.Play;
end;
end;