Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2015, 14:40   #1
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию Одна форма открывается следом за другой

Доброго времени суток!
Необходимо чтобы открылась форма№1, через 10 секунд она закрылась (стала невидимой, свернулась, не важно, лишь бы не видно ее было) и открылась форма№2, через 10 секунд она закрылась и открылась форма№3 и через 10 секунд закрылась программа.

Делал следующее:
на форме№1 разместил Таймер в инспекторе объектов выставил: enabled -false, interval -10000, в событиях OnTimer -Timer1Timer и код:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Form1.Timer1.enabled:=true;
 Form2.Show;
 Form1.AlphaBlend := True;
 Form1.AlphaBlendValue := 0;
 Form1.Timer1.enabled:=false;
end;
для формы№2 аналогично и код:
Код:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
 Form2.Timer1.enabled:=true;
 Form3.Show;
 Form2.AlphaBlend := True;
 Form2.AlphaBlendValue := 0;
 Form2.Timer1.enabled:=false;
 end
и для последней формы тоже самое и код:
Код:
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Form3.Timer1.enabled:=true;
Form3.Timer1.enabled:=false;
Application.Terminate;
end;
не работает, интервалы не по 10 секунд, вторая форма вообще не появляется...подскажите как реализовать задуманное!?
любо вне форума Ответить с цитированием
Старый 02.04.2015, 14:56   #2
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 514
По умолчанию

вот это надо вызывать вне таймера
Код:
 Form1.Timer1.enabled:=true;
а на второй и третьей формах на OnShow сделать запуск таймера
Пишу на Delphi за еду

Последний раз редактировалось Toxa; 02.04.2015 в 14:59.
Toxa вне форума Ответить с цитированием
Старый 02.04.2015, 15:05   #3
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Toxa Посмотреть сообщение
вот это надо вызывать вне таймера
Код:
 Form1.Timer1.enabled:=true;
а на второй и третьей формах на OnShow сделать запуск таймера
Здесь procedure TForm1.FormCreate(Sender: TObject);?

Окей, вроде все работает, спасибо огромное!

Последний раз редактировалось Stilet; 02.04.2015 в 16:14.
любо вне форума Ответить с цитированием
Старый 02.04.2015, 15:54   #4
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 514
По умолчанию

если работает - хорошо
я не знаю где в данном случае было создание форм, может они создаются все одновременно, тогда и таймеры сработают одновременно. в этом случае лучше все таки выбрать OnShow
Пишу на Delphi за еду
Toxa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не открывается форма проекта Xaker_Two Помощь студентам 3 04.02.2013 18:44
Не открывается главная форма sasha198407 Общие вопросы Delphi 5 24.02.2012 15:45
Открывается ненужная форма grom333 Общие вопросы Delphi 2 07.01.2012 22:09
Не открывается форма Kurt_89 C# (си шарп) 1 07.10.2011 18:07
НЕ ОТКРЫВАЕТСЯ НИ ОДНА БАЗА Алёна БД в Delphi 6 16.02.2008 16:39