Определить, когда TMediaPlayer закончил проигрывание

Обратите внимание, что уведомить сбрасывает значение false. когда событие уведомлению, так заказов мои для вас, чтобы получить

далее уведомлять события, вы должны установить его обратно в true, как в коде. о доступных режимах см. файл справки для MediaPlayer.Mode;

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

MediaPlayer1.Notify := True;

MediaPlayer1.OnNotify := NotifyProc;

end;

procedure TForm1.NotifyProc(Sender: TObject);

begin

with Sender as TMediaPlayer do

begin

case Mode of

mpStopped: {do something here};

end;

//must set to true to enable next-time notification

Notify := True;

end;

{

NOTE that the Notify property resets back to False when a

notify event is triggered, so inorder for you to recieve

further notify events, you have to set it back to True as in the code.

for the MODES available, see the helpfile for MediaPlayer.Mode;

}

Новые статьи