Вопросы и ответы

Дата: 2000-06-02 00:00:00

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

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

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



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

Наверх