Советы по Delphi

         

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]



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