|
Вопрос # 6 544/ вопрос решён / |
|
Здравствуйте! Как закрыть окно MediaPlayer?
MediaPlayer1.Destroy; {Debugger Exception Notification:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004532DC in module 'Project1.exe'. Write of address 000002E8'. Process stopped. Use Step or Run to continue.}
//MediaPlayer1.Close;//не закрывает окно
//MediaPlayer1.Open; // прекрасно закрывает проигрыватель
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- Unit1.pas https://www.delphi-int.ru/code/731E206A
- Unit1.dfm https://www.delphi-int.ru/code/67C7B1CA
 |
Вопрос задал: zvygin1964 (статус: Посетитель)
Вопрос отправлен: 13 июля 2014, 20:35
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 25; последнее сообщение — 21 июля 2014, 17:55; участников в обсуждении: 3.
Страницы: [1] [2] [Следующая »]
|
min@y™ (статус: Доктор наук), 13 июля 2014, 20:58 [#1]:
Цитата (zvygin1964):
Как закрыть окно MediaPlayer?
А что ты имеешь в виду под понятием "Окно MediaPlayer"? Кнопки управления воспроизведением? Или таки компонент, прописанный в свойстве Display?
И зачем его надо закрыть?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 21:04 [#2]:
Окном называю поле на котором видно видео(ну, или Panel1 в свойстве Display которого прописан MediaPlayer).
Закрыть нужно для диалога или другого видео. Вариант "Томагочи" для моей внучки. (Говорящая кукла)
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 21:06 [#3]:
Наверное, я имею в виду:"Или таки компонент".
А вы предлагаете
MediaPlayer1.Stop;
И Visible переключить в False?
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 21:24 [#4]:
Цитата (zvygin1964):
Наверное, я имею в виду:"Или таки компонент".
Ну а закрывать-то зачем? И вообще, что значит "закрыть панель"?
Цитата (zvygin1964):
И Visible переключить в False?
Visible какого компонента?
Предлагаю перечитать вот это. Вдумчиво!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 21:26 [#5]:
Visible Panel1 в False.
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 21:44 [#6]:
Цитата (zvygin1964):
Visible Panel1 в False.
Тебя это устраивает?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 21:47 [#7]:
Пока не знаю, что будет со звуком.
Попробую по "Саге о X ,Y ,Z" :
Хочу нажать на Button1 и показать мультфильм во весь экран. Затем должны появиться Button2, Button3, Button4. На какую-то из них нажмет ребенок и покажется другой мультфильм во весь экран. И так далее... Звук мультфильма ежедневно надиктует мама перед уходом на работу.
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 21:50 [#8]:
Цитата (zvygin1964):
Хочу нажать на Button1 и показать мультфильм во весь экран. Затем должны появиться Button2, Button3, Button4. На какую-то из них нажмет ребенок и покажется другой мультфильм во весь экран. И так далее... Звук мультфильма ежедневно надиктует мама перед уходом на работу.
И в чём проблема? Метод Stop() разве не останавливает звук?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 21:57 [#9]:
То есть, я вас понимаю, как: Stop(), а затем менять Visible?
Странно, но это прекрасно делает:
MediaPlayer1.Open;
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 22:04 [#10]:
Цитата (zvygin1964):
То есть, я вас понимаю, как: Stop(), а затем менять Visible?
Да мне, собственно, монопенисуально. Я всё никак не пойму:
Цитата (min@y™):
И в чём проблема?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 22:05 [#11]:
Цитата (min@y™):
Странно, но это прекрасно делает: MediaPlayer1.Open;
И чо?
Что у тебя не получается-то, ёмаё?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 22:05 [#12]:
А как правильно?
|
13 июля 2014, 22:08: Статус вопроса изменён на решённый (изменил автор вопроса — zvygin1964): Ответ min@y™ MediaPlayer1.Open
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 22:10 [#13]:
Цитата (zvygin1964):
А как правильно?
Как правильно делать что?
Цитата (zvygin1964):
Ответ min@y™ MediaPlayer1.Open
Это неправда!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
13 июля 2014, 22:12: Вопрос вновь открыт (изменение состояния произвёл автор вопроса — zvygin1964)
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 22:13 [#14]:
Спрятать окно с видео.
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 22:14 [#15]:
Цитата (zvygin1964):
Спрятать окно с видео.
Panel1.Hide();
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 13 июля 2014, 22:31 [#16]:
Hide прячет. Но звук остается.
А аналог красного крестика справа вверху окна Windows есть? Как называется это свойство Panel1?
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2014, 22:43 [#17]:
Цитата (zvygin1964):
Hide прячет. Но звук остается.
Правильно, так и должно быть, ведь ты не просил останавливать воспроизведение. Ты просил только
Цитата (zvygin1964):
Спрятать окно с видео.
Что прекрасно делает метод TPanel.Hide().
Цитата (zvygin1964):
А аналог красного крестика справа вверху окна Windows есть?
Где? В чём? На чём?!!!!!
Цитата (zvygin1964):
Как называется это свойство Panel1?
Какое свойство? Свойство, отвечающее за что, за какое поведение компонента?
Да шо ж ты как белорусский партизан на допросе?! Информацию приходится из тебя клещами тащить!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 14 июля 2014, 23:36 [#18]:
Сайгонский пенсионер - это пожалуй, будет ближе. Ну откуда мне знать, как вы Биллы Гейтсы, называете красный крестик в углу Word, Excel и Paint. Я предполагал, что это close или destroy.
О том и речь, что они не работают как надо!
|
|
|
min@y™ (статус: Доктор наук), 15 июля 2014, 08:33 [#19]:
Цитата (zvygin1964):
Ну откуда мне знать, как вы Биллы Гейтсы, называете красный крестик в углу Word, Excel и Paint.
У меня нету красного крестика в углу Word, Excel и Paint.
Цитата (zvygin1964):
Я предполагал, что это close или destroy.
Close или Destroy какого класса?
Чего ж ты хочешь получить-то? Какой функционал?
Цитата (zvygin1964):
О том и речь, что они не работают как надо!
Кто - "они"?
Кстати, могу с уверенностью не менее 146% предположить, что так называемые "они" как раз работают как надо, просто применять "их" надо "где надо" и "когда надо".
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
zvygin1964 (статус: Посетитель), 16 июля 2014, 08:30 [#20]:
"Close или Destroy какого класса?",- этот вопрос не понимаю я:
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;//.
"Чего ж ты хочешь получить-то? Какой функционал?",-
Хочу получить: на мониторе ПК появляется изображение уважаемого min@y™, сообщает о своих пожеланиях и исчезает с экрана. На мониторе появляется Form, на ней несколько Button с ответами, один из которых правильный.
"Кто - "они"?",-
MediaPlayer1.Close;
MediaPlayer1.Destroy;//.
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
