mediaplayer如何实现循环播放?
下面的代码好像不行啊
procedure TForm1.OnNotify(Sender: TObject);
begin
if MediaPlayer1.Mode = mpStopped then
MediaPlayer1.Play;
MediaPlayer1.Notify := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
MediaPlayer1.FileName := 'hit.mid';
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Notify := True;
end;