Определить, когда TMediaPlayer закончил проигрываниеDelphi , Компоненты и Классы , TMediaPlayerОпределить, когда TMediaPlayer закончил проигрывание
Оформил: DeeCo 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; 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; } Статья Определить, когда TMediaPlayer закончил проигрывание раздела Компоненты и Классы TMediaPlayer может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TMediaPlayer ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |