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

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

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com