كيف أجعل ملف الصوت يشتغل باستمرار دون توقف في MediaPlayer1

[haroun03]

السلام عليكم
كما هو في السؤال كيف اجعل الملف الصوتي المربوط بمكون MediaPlayer1 يشتغل دون توقف و يعدي الاشتغال كلما ينتهي الصوت تلقائيا عند الضغط على زر
و يقوم بالتوقف فقط عند الضغط على زر آخر

[karika2]

كود :

[COLOR=Green]timer1.Interval:=1000 timer1.Enabled:=false[/COLOR]

كود :

procedure TForm1.openClick(Sender: TObject); begin if OpenDialog1.Execute then begin MediaPlayer1.FileName:=OpenDialog1.FileName; MediaPlayer1.Display:=Panel1; MediaPlayer1.Open; end; end;

كود :

procedure TForm1.playClick(Sender: TObject); begin Timer1.Enabled:=True; end;

كود :

procedure TForm1.stopClick(Sender: TObject); begin timer1.Enabled:=false; MediaPlayer1.Stop; end;

كود :

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

[rabihpascal]

هذه طريقة ايضا
تصع في ااحدثonnotifyeventللميديا بلاير
With mediaplayer1 do
If notifyvalue=nvsuccessfull then
Mediaplayer1.position:=0;
Mediaplayer1.play
End