Delphi - база знаний


AVI файл проигрывается снова и снова


AVI файл проигрывается снова и снова



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

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

Взято с сайта



Начало  Назад  Вперед