Закрытие главной формы - Общие вопросы Delphi

countteran · 26.01.2012, 17:33

Всем здравствуйте, есть 2 формы: 1 главная и 2 модальная. При создании первой формы проверяется условие, если оно верно, то создается 2 форма.
Нужно, чтобы при закрытии 2 формы закрывалась первая и собственно все приложение. Подскажите пожалуйста, как реализовать...

Кольша · 26.01.2012, 17:49

application.terminate;

countteran · 26.01.2012, 17:54

Кольша, спасибо!

countteran · 26.01.2012, 19:25

извиняюсь что в этой же теме, но появился еще вопрос: в TForm2.FormClose прописываю

Код:

 if FindFirst('C:\Users\Admin\Desktop\System.ini',faAnyFile,SearchResult) <> 0 then
 Application.Terminate;

и после этого при закрытии 2 формы первая не появляется, а программа работает. Эту строку убираешь и все хорошо, что не так?

ДралсяСошибками · 26.01.2012, 20:05

попробуй так:

Код:

if not FileExists('C:\Users\Admin\Desktop\System.ini') then Application.Terminate;

countteran · 26.01.2012, 20:18

не помогло...

Stilet · 26.01.2012, 21:03

Значит ты что-то в проекте навертел, ибо способы описанные выше вполне нормально отрабатывают.

countteran · 26.01.2012, 21:13

Проект свеженький, у 1 формы visible=true у 2 = false ... что еще может быть? 2 форму показываю так

Код:

Form2:=TForm2.Create(Application);
 Form2.ShowModal;

Stilet · 26.01.2012, 21:29

Не... Так не понятно. Описанное тобой работает нормально.
Скинь сюда проект в архиве

countteran · 26.01.2012, 21:57

ну вот вроде...

26.01.2012, 17:33	#1
countteran Пользователь Регистрация: 03.05.2011 Сообщений: 33	Закрытие главной формы Всем здравствуйте, есть 2 формы: 1 главная и 2 модальная. При создании первой формы проверяется условие, если оно верно, то создается 2 форма. Нужно, чтобы при закрытии 2 формы закрывалась первая и собственно все приложение. Подскажите пожалуйста, как реализовать...

26.01.2012, 17:49	#2
Кольша Далеко не Участник клуба Регистрация: 11.08.2011 Сообщений: 1,512	application.terminate; Kolsha.ru admin[@]ksware.ru

26.01.2012, 19:25	#4
countteran Пользователь Регистрация: 03.05.2011 Сообщений: 33	извиняюсь что в этой же теме, но появился еще вопрос: в TForm2.FormClose прописываю Код: `if FindFirst('C:\Users\Admin\Desktop\System.ini',faAnyFile,SearchResult) <> 0 then Application.Terminate;` и после этого при закрытии 2 формы первая не появляется, а программа работает. Эту строку убираешь и все хорошо, что не так?

26.01.2012, 20:05	#5
ДралсяСошибками Форумчанин Регистрация: 31.05.2011 Сообщений: 301	попробуй так: Код: `if not FileExists('C:\Users\Admin\Desktop\System.ini') then Application.Terminate;`

26.01.2012, 21:03	#7
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Значит ты что-то в проекте навертел, ибо способы описанные выше вполне нормально отрабатывают. I'm learning to live...

26.01.2012, 17:54	#3
countteran Пользователь Регистрация: 03.05.2011 Сообщений: 33	Кольша, спасибо!

26.01.2012, 20:18	#6
countteran Пользователь Регистрация: 03.05.2011 Сообщений: 33	не помогло...

26.01.2012, 21:13	#8
countteran Пользователь Регистрация: 03.05.2011 Сообщений: 33	Проект свеженький, у 1 формы visible=true у 2 = false ... что еще может быть? 2 форму показываю так Код: `Form2:=TForm2.Create(Application); Form2.ShowModal;`

26.01.2012, 21:29	#9
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Не... Так не понятно. Описанное тобой работает нормально. Скинь сюда проект в архиве I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Скрытие или закрытие главной формы	mental	Общие вопросы Delphi	6	11.10.2011 13:46
Закрытие главной формы	Nantaur	Общие вопросы C/C++	0	14.05.2010 16:47
Как программно закрыть все открытые модальные формы перед сворачиванием главной формы в трей?	SkAndrew	Общие вопросы Delphi	8	27.01.2010 22:44
Закрытие формы	girz	БД в Delphi	7	13.05.2009 22:54
Обращение из формы в dll к элементу главной формы (delphi)	a_n_n_a	Помощь студентам	3	10.05.2009 04:00