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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Нам приходится брать деньги за то, что мы и так с удовольствием делаем... Нам приходится делать это даже когда очень противно... Почти все стараются не заплатить... Все нас матерят... Нас презирают как верхи, так и низы... И зачем я стал программистом...

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