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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 905

/ вопрос открыт /

Набрал:

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormActivate(Sender: TObject);
begin
MediaPlayer1.Play;

end;

end.
теперь ролик воспроизводится автоматически! Что нужно дописать чтобы по окончании ролика форма закрывалась, а открывалась другая форма?Здравствуйте, уважаемые эксперты!

Ученый Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Ученый (статус: 8-ой класс)
Вопрос отправлен: 16 сентября 2008, 16:29
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Feniks

Здравствуйте, Ученый!
Допишите после Close

MediaPlayer1.Play;
Close;

P.S. Желаю удачи.

Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 16 сентября 2008, 17:03
Оценка за ответ: 4

Комментарий к оценке: Извини! но больше не могу! немного неточно подсказал!

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

Всего сообщений: 10; последнее сообщение — 24 октября 2008, 04:46; участников в обсуждении: 5.
Feniks

Feniks (статус: Бакалавр), 16 сентября 2008, 16:57 [#1]:

А сами разве не догадываетесь ? :)
Ученый

Ученый (статус: 8-ой класс), 16 сентября 2008, 16:59 [#2]:

Нет не могу догадаться! Иначе не спрашивал бы!
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 16 сентября 2008, 17:06 [#3]:

Установи свойство MediaPlayer1.Notify:=true;
В обработчике события OnNotify
поставь form1.close.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 16 сентября 2008, 17:09 [#4]:

Если сразу после MediaPlayer1.play поставить close, то воспроизведения не получится; форма сразу закроется, если только не установлено свойство MediaPlayer1.Wait:=true;
Ученый

Ученый (статус: 8-ой класс), 16 сентября 2008, 17:11 [#5]:

Feniks, добавляю Close, форма открывается и сразуже закрывается, ролик не успевает проиграть!
Аксион

Аксион (статус: 4-ый класс), 16 сентября 2008, 17:22 [#6]:

Ученый, прочитайте что вам написал выше Мережников Андрей...
Установи свойство MediaPlayer1.Notify:=true;
В обработчике события OnNotify
поставь form1.close.
Ученый

Ученый (статус: 8-ой класс), 16 сентября 2008, 17:23 [#7]:

А как сделать чтобы вторая форма появлялась позади первой?
Аксион

Аксион (статус: 4-ый класс), 16 сентября 2008, 17:26 [#8]:

Есле именно позади, то:
Form2.visible:=true;
Form1.BringToFront;
Feniks

Feniks (статус: Бакалавр), 16 сентября 2008, 17:30 [#9]:

Значит пробуй как сказал Мережников Андрей.
Nasgool

Nasgool (статус: 2-ой класс), 24 октября 2008, 04:46 [#10]:

Если ты хочешь сделать сплеш-окно (т.е. примерно как в офисе при загрузке приложения чего-то показывает пока программа подгружает модули, а потом сплеш-окно исчезает и появляется основное окно приложения), то есть такое решение:
- создаешь все формы, что тебе нужны;
- главна форма приложения - это сплеш-окно;
- в обработчике onShow запускаеш проигрыватель (сдесь же можешь загрузить настройки из файла или реестра если нужны для твоей проги);
- в в обработчике события OnNotify у плеера; скрываешь сплеш-окно и показываешь нужное тебе окно (если нужно показать второе окно раньше окончания ролика, - пропиши ему form2.show и form1.setfocus сразу после запуска проигрывателя).

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 сентября 2017, 09:44
Выполнено за 0.05 сек.
Рейтинг@Mail.ru