|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.05.2011, 11:54 | #1 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
как добавить видео
Подскажите, как добавить видео *.wmv в Delphi, чтобы при запуске приложения оно сразу проигрывалось?
Я сделала с помощью MediaPlayer, в FileName указала путь к файлу (он у меня на рабочем столе, это же не страшно?) в AutoOpen - true. При запуске он проигрывает видео, но в отдельной форме. Как мне сделать так, чтобы была одна форма, т.е. запускаю, оно играет, потом закончилось и моя форма осталась, и с ней я еще могу работать, допустим, что-то рисовать, нажимать кнопки... |
09.05.2011, 14:43 | #2 |
Форумчанин
Регистрация: 06.12.2010
Сообщений: 300
|
Чтобы не появлялось дополнительное окошко, плееру нужно указать, куда выводить изображение (св-во Display). Обычно для этого отводят обычную панель.
|
10.05.2011, 00:15 | #3 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
ага, спасибо))
еще как сделать, чтобы после просмотра видео эта панель сразу же удалилась или очистилась (лучше удалилась), а то в ней остается последний кадр? |
11.05.2011, 00:11 | #4 |
Форумчанин
Регистрация: 06.12.2010
Сообщений: 300
|
Спрячьте ее.
|
11.05.2011, 22:29 | #5 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
Как спрятать? С помощью св-ва Visible? Не получается.
Я так думаю по окончании видео сделать Panel1.Destroy, но не знаю, как определить, что видео закончилось. Вообще, как это определяется? |
11.05.2011, 23:25 | #6 | |
Форумчанин
Регистрация: 06.12.2010
Сообщений: 300
|
Цитата:
Перед запуском видео установите Notify := True тогда после остановки сработает событие OnNotify. Удобно его в OnClick устанавливать. |
|
13.05.2011, 13:29 | #7 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
Мне бы желательно без OnClick, нужно, чтобы видео проигралось и осталась пустая форма. Я что-то наверное не так делаю, приведите пожалуйста пример кода, если не сложно.
Я так делаю: Код:
|
13.05.2011, 23:15 | #8 |
Форумчанин
Регистрация: 06.12.2010
Сообщений: 300
|
Попробуйте Play делать после Notify:=true.
|
13.05.2011, 23:31 | #9 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
ничего не изменилось
|
14.05.2011, 21:12 | #10 |
Пользователь
Регистрация: 02.05.2011
Сообщений: 45
|
Я подумала,может так:
Код:
Спасибо за помощь |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как добавить? | cargo29 | Работа с сетью в Delphi | 1 | 14.12.2010 22:50 |
Как добавить \r\n.\r\n ??? | dimorik | Общие вопросы C/C++ | 1 | 23.03.2010 11:57 |
Как добавить компонент? | iiunbreakableii | Общие вопросы C/C++ | 9 | 10.06.2009 09:01 |
Как добавить в автозапуск? | AngelOfDeath | Win Api | 4 | 19.05.2008 10:55 |