Как отследить окончание просмотра файла в TMediaPlayer?

← →
Blacked (2003-10-14 01:37) [0]

Может вопрос и ламерский, но что то я с функцией Notify немогу разобраться... пишу:

procedure TMainForm1.MP1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
case Mode of
mpStopped:
begin
ShowMessage("Stopped!");
end;
end;
Notify := True;
end;
end;

и это долбаное сообщение не показываеться...
хотя я уже и Play и Stop обнажимался и просто ждал, когда фаил проиграет до конца...

← →
Blacked (2003-10-14 02:02) [1]

Вопрос снимается

Просто снимается - нехорошо.
Нужно сказать в чем была причина и т.д.
Здесь не просто отвечалка, а для многих обучалка.

Как отследить окончание просмотра файла в TMediaPlayer? Найти похожие ветки