Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Как зацыклить TMediaPlayer?   Найти похожие ветки 

← →
serg128   (2004-09-07 10:37) [0]

Т.е. когда клип закончился, он начинал играть по новой.

---

← →
Fredy314 ©   (2004-09-07 12:41) [1]

У меня в одной проге стоял таймер и проверял статус плеера (не помню как называется свойство) и когда он "стопед" запускал по новой, вариант может и не лучший но у таймера были и другие задачи так я и ету заодно повесил.

---

← →
Yurik   (2004-09-08 08:06) [2]

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

---

← →
antonn ©   (2004-09-08 14:04) [3]

И еще добавлю к [2] запуск

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
With MediaPlayer1 do
Begin
Open;
Notify := True;
Play;
End;
end;

---

← →
zero-g ©   (2004-09-10 05:57) [4]

я так делал

procedure TForm6.Timer2Timer(Sender: TObject);
begin
with MediaPlayer1 do
if Position = Length then
 begin
  Stop; Position := 0; play;
 end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c