Как сделать чтобы при закрытии дочерней формы выгружалась программа?

Форумы Помощь по пакетуКак сделать чтобы при закрытии дочерней формы выгружалась программа? ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 1841

Рейтинг: 370

#1: 2009-12-09 20:58:09 ЛС | профиль | цитата

Всем привет!
Я сделал приложение которое имеет главную форму, кнопку которая находится на главной форме и дочернюю форму (изначально скрытую) которую вызываю нажатием на кнопка. После нажатия на кнопку главная форма скрывается а дочерняя становится видимой.
Вопрос в следующем: Как сделать так чтобы при нажатии на закрытие приложения в верхнем левом углу программы закрывалась именно главная форма и тем самым закрывалась вся программа?
Пример:
code_15954.txt

PS. Ответы типа сделать свою кнопку в дочерней форме для закрытия программы не предлагать...

карма: 1

Альтернативная сборка HiAsm 4.

файлы: 1

code_15954.txt [1KB] [197]

Ответов: 1376

Рейтинг: 198

#2: 2009-12-09 21:03:49 ЛС | профиль | цитата

просто
code_15955.txt

карма: 1

файлы: 1

code_15955.txt [1.1KB] [258]

Администрация

Ответов: 15295

Рейтинг: 1519

#3: 2009-12-09 21:05:50 ЛС | профиль | цитата

foksov, вообще-то при такой конструкции для закрытия программы достаточно переключение фокуса с дочерней формы. Мне кажется автор топика вовсе не это просил.

карма: 26

https://hiasm.com

Ответов: 4641

Рейтинг: 334

#4: 2009-12-09 21:10:47 ЛС | профиль | цитата

а вопрос тебя устроит? чем так прекрасна дочерняя форма, что ее необходимо повсеместно применять?
особенно в твоем случае!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 1376

Рейтинг: 198

#5: 2009-12-09 21:12:51 ЛС | профиль | цитата

Возможно, но я понял так, что надо закрыть всё приложение из дочерней формы, без передачи фокуса.

карма: 1

Ответов: 1841

Рейтинг: 370

#6: 2009-12-09 21:18:57 ЛС | профиль | цитата

foksov писал(а):

Возможно, но я понял так, что надо закрыть всё приложение из дочерней формы, без передачи фокуса.

Именно
------------ Дoбавленo в 21.28:
Возможно ли вообще закрыть приложение нажатием на системный крестик в верхнем правом углу дочерней формы?
PS. Есть точка doClose но она почему-то не работает в дочерних формах

------------ Дoбавленo в 21.39:

Ravilr писал(а):

Очень давно интересует этот вопрос вот и решил всё таки задать его на форуме...

карма: 1

Альтернативная сборка HiAsm 4.

Администрация

Ответов: 15295

Рейтинг: 1519

#7: 2009-12-09 21:53:18 ЛС | профиль | цитата

doClose в дочерних формах аналогична Visible = False. Для корректного закрытия всего приложения необходимо ставить EventFromData на верхнюю точку Close и уже с него вызывать doClose у основной формы программы.

карма: 26

https://hiasm.com

Голосовали:

CriDos

Ответов: 4641

Рейтинг: 334

#8: 2009-12-09 22:12:17 ЛС | профиль | цитата

CriDos, вот тебе пример ChildPanelPoly от nesco, переделанный мной немного..
вроде удобно, наглядно и без замарочек.
code_15956.txt

CriDos писал(а):

но она почему-то не работает в дочерних формах


Add(MainForm,2953706,175,105)
{
}
Add(ChildForm,3479464,98,105)
{
 link(onEvent1,2953706:doClose,[(152,111)(152,132)])
}
BEGIN_SDK
  Add(EditMulti,9088385,21,21)
  {
   EventCount=1
  }
  Add(MainForm,13525012,126,112)
  {
   Left=35
   Top=105
   Point(Close)
   link(Close,8430348:GetData,[])
  }
  Add(EventFromData,8430348,126,63)
  {
   link(onEvent,9088385:onEvent1,[(218,69)(218,27)])
  }
END_SDK

карма: 1

Время верстки: %cr_time% Текущее время: %time%

файлы: 1 code_15956.txt [2.8KB] [182]

Ответов: 1841

Рейтинг: 370

#9: 2009-12-09 22:17:58 ЛС | профиль | цитата

Dilma писал(а):

Спасибо!
Я и не знал что так можно!

карма: 1

Альтернативная сборка HiAsm 4.

Форумы Помощь по пакетуКак сделать чтобы при закрытии дочерней формы выгружалась программа? ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)