Mega Code Archive

 

Categories / Delphi / Examples

 

Unlimited playing in MediaPlayer

Title: Unlimited playing in MediaPlayer Use onNotify event, Notify and NotifyValue properties of MediaPlayer component. procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin with MediaPlayer1 do if NotifyValue = nvSuccessful then begin Notify := True; Play; end; end; procedure TForm1.Button1Click(Sender: TObject); begin with MediaPlayer1 do begin Filename:='test.wav'; Open; Play; end; end;