Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Мультимедия / Как заставить TMediaPlayer проигрывать одно и тоже бесконечно? AVI например?

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

В примере AVI файл проигрывается снова и снова - используем событие MediaPlayer'а Notify
Пример:

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

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru