Delphi-Help

Главная Статьи Аудио и видео плеер (MediaPlayer) Как заставить TMediaPlayer проигрывать одно и тоже бесконечно

Как заставить TMediaPlayer проигрывать одно и тоже бесконечно

Оцените материал
(0 голосов)

Как заставить TMediaPlayer проигрывать одно и тоже бесконечно?

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   with MediaPlayer1 do
      if NotifyValue = nvSuccessful then
      begin
         Notify := True;
         Play;
      end;
end;

 

Другие материалы в этой категории: « Как показать первый кадр AVI-файла?

Авторизация



Счетчики