Показать сообщение отдельно
  #2  
Старый 22.05.2013, 21:21
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Код:
 procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 if MediaPlayer1.Position = MediaPlayer1.Length then // что-то делаем
end;
Ответить с цитированием