|
Вопрос # 2 880/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Я пишу видео учебник на форе разместил компонент Windows Media Player видео работает но при закрытии формы с компонентом видео и звук продолжают воспроизводится до конца видео файла, как сделать чтоб при закрытии окна видео останавливалось автоматически? Опишите пожалуйста по подробнее, если не трудно на примере программы http://www.delphi.int.ru/articles/17/ как эта. За ранее благодарен.
 |
Вопрос задал: Andreixxx2004 (статус: Посетитель)
Вопрос отправлен: 2 июня 2009, 17:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Цитата:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Close;
end;
Ну тада всё понятно!
Сам-то понял, чо написал?
Выкинь оттуда Form2.Close, и добавь:
if MediaPlayer.PlayState = wmppsPlaying
then MediaPlayer.Controls.Stop; // <-- На основе примера Андрея Ерёмина
Ахтунг! С ActiveX Windows Media Player я никогда не работал! И не буду...
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 2 июня 2009, 19:10
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 2 июня 2009, 19:11; участников в обсуждении: 2.
|
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. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|