[Pilyla]

Здравствуйте. Подскажите пожалуйста, как отследить завершение видео. Заранее благодарю за ответ

[Alegun]

Код:

 procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 if MediaPlayer1.Position = MediaPlayer1.Length then // что-то делаем
end;

[Pilyla]

именно то,что надо! спасибо