Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты! Я пишу видео учебник на форе разместил компонент Windows Media Player видео работает но при закрытии формы с компонентом видео и звук продолжают воспроизводится до конца видео файла, как сделать чтоб при закрытии окна видео останавливалось автоматически? Опишите пожалуйста по подробнее, если не трудно на примере программы https://www.delphi-int.ru/articles/17/ как эта. За ранее благодарен.

Вопрос задал: Andreixxx2004 (статус: Посетитель) Вопрос отправлен: 2 июня 2009, 17:39 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Цитата:

  if MediaPlayer.PlayState = wmppsPlaying 
    then MediaPlayer.Controls.Stop; // <-- На основе примера Андрея Ерёмина

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 2 июня 2009, 19:10

Мини-форум вопроса

min@y™ (статус: Доктор наук), 2 июня 2009, 18:43 [#1]: Покажи свой код обрабочика OnClose главной формы. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Andreixxx2004 (статус: Посетитель), 2 июня 2009, 18:52 [#2]: procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form2.Close; end;

min@y™ (статус: Доктор наук), 2 июня 2009, 19:11 [#3]: Интересно, почему твоя главная форма имеет имя типа TForm2? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.