TMEDIAPLAYER: циклическое проигрывание

Используйте событие компонента TMediaPlayer OnNotify для определения момента завершения проигрывания:

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

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
With MediaPlayer1 do If NotifyValue = nvSuccessful Then Begin Notify := True; Play; End; end;

[001985]

Содержание раздела