НУжна попощь с Mediaplayer.

[Howler]

Здравствуйте!

Подскажите пожалуйста как можно сделать так, чтобы MP проигрывал бесконечно ролик.

Пробовал создавать цикл на команду Play, но тогда ничего кроме цикла не работает.

[strannik]

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

[KORN]

или кидай таймер на форму и в событии ontimer пиши:

with mp do
begin
  if length=position then
  play;
end;

[Howler]

СпасиБо ВаМ!!! помогли друзья

[_ares_]

KORN спассиба тебе большушее.