TMediaplayer i powtarzanie

0

jak w mediaplayer zrobic powtarzanie?? piosenka ma 14 sec i chce zeby leciala cały czas
ale nie wiem jak...

ja to zrobiłem tak :
do timer wsadziłem taki kod:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
mediaplayer1.Previous;
mediaplayer1.Play;
end;

i timera ustawiłem na 12000 czyli 12 sec...
i jak wczytuje utwor od poczatku to jest 1 sec przerwa (nic nie leci..) jak ta przerwe usunac... (utwor na poczatku jak i na koncu jest Od razu glosny:P)

PLZ o POMOC!! z gory THX

0

A po co Ci Timer? Jak chcesz by grało w kółko to wystarczy coś takiego:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  MediaPlayer1.Rewind;
  MediaPlayer1.Play;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1