Как зацыклить 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;

я так делал

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

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