Подписаться на RSS рассылку
Главная » Статьи по Delphi » Компоненты » Как заставить TMediaPlayer проигрывать одно и тоже бесконечно

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

Автор: Акулов Николай

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

Просмотров: 2666

Обсудить на форуме

0   Спам
(20.05.2011)
1. Александр Веселов (vs259)
Подозреваю, что этот способ, описанный на многих, многих сайтах не единственный.

Посмотрите вот здесь: http://pro-delphi.ru/?page_id=592



Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта