Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;
|
|
|
|
|
аренда мобильного шиномонтажа . Барахолка Москвы: доставка воды архыз. Рыбные деликатесы производителя. . Водяной полотенцесушитель купить. Водяной полотенцесушитель купить на заказ. . ФОРТУН - Создание корпоративных сайтов. Разработка и создание корпоративных сайтов. . Одежда для танцев и гимнастики - обувь и одежда для танцев. . |
