Delphi World - Определить, когда TMediaPlayer закончил проигрывание
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Определить, когда TMediaPlayer закончил проигрывание

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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; 
}
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования