![Старый](images/statusicon/post_old.gif)
22.05.2013, 21:21
|
![Аватар для Alegun](image.php?s=59f790a987c2f5634eeab5996b3afb83&u=8314&dateline=1343930888) |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Код:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then // что-то делаем
end;
|