VPF::Запуск Form4 один раз и всё - Форум программистов

Janger

Дата 19.6.2013, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: 1
Всего: 1

Код


  Application.Initialize;
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm1, Form1);
  Form5.Show;
  Form5.Update;
  while Form5.Timer1.Enabled do
  Application.ProcessMessages;
  Form5.Hide;
  Form5.Free;
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;

В общем, это дело так у меня работает...

Это сообщение отредактировал(а) Janger - 19.6.2013, 23:06

northener

Дата 19.6.2013, 23:36 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Janger @ 19.6.2013, 23:04

)

В общем, это дело так у меня работает...

Вот это изврат, так изврат!
Аминь smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Данкинг

Дата 19.6.2013, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Poseidon @ 19.6.2013, 23:17

)

Неужели телепаты с отпуска вернулись? Я вот даже и не подумал о таком варианте

Ну так после этой фразы:

Цитата(Janger @ 19.6.2013, 16:06

)

При первом запуске программы

я так и понял, как понял. smile

--------------------

There's nothing left but silent epitaphs.

Poseidon

Дата 20.6.2013, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Janger, с таким вариантом у тебя пятая форма будет считаться главной. Я не пробовал, но неужели приложение не закрывается полностью при закрытии пятой формы?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Janger

Дата 20.6.2013, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: 1
Всего: 1

Цитата(Poseidon @ 20.6.2013, 08:02)

Неа...))) Всё работает неплохо..)))
В начале открывается ФОРМА5, потом открывается ФОРМА4, а только потом открывается ФОРМА1, только при этом ФОРМА4 не закрывается...((

Rennigth

Дата 20.6.2013, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Janger, Объясни что конкретно каждая форма у тебя делает... не, лучше объяни что дожна делать.

п.с. Form1 зачем 2 раза создаешь?

п.с.с. что за изврат?

Код


  while Form5.Timer1.Enabled do
  Application.ProcessMessages;

--------------------

(* Honesta mors turpi vita potior *)

northener

Дата 20.6.2013, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Poseidon @ 20.6.2013, 08:02

)

Janger, с таким вариантом у тебя пятая форма будет считаться главной. Я не пробовал, но неужели приложение не закрывается полностью при закрытии пятой формы?

Сначала главной становится пятая, таки да. Но после её уничтожения главной становится форма, которая после этого создаётся вызовом Application.CreateForm, т.е четвёртая. Почему я и сказал что это изврат. smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »