Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Вниз

Закрытие проги после закрытия ПОСЛЕДНЕГО окна?   Найти похожие ветки 

 
IDL   (2002-04-24 12:54) [0]

В проге при закрытии главной ( первой созданной) формы, программа завершается. А как сделать, чтобы она завершалась только после закрытия всех окон?
Желательно не создавать для этого главное окно скрытым.


 
Song   (2002-04-24 12:58) [1]

Никак. После закрытия главной приложение будет всегда закрываться.
Вариант - скрывать главную форму и высвечивать все остальные.
TApplication.ShowMainForm


 
Anatoly Podgoretsky   (2002-04-24 13:00) [2]

В событии OnCloseQuery ставишь CanClose := FALSE если есть хоть одна открытая форма, надеюсь ты именно о формах говоришь, а не об окнах, иначе твоя задача трудно разрешима.


 
Deus   (2002-04-24 13:54) [3]

Ещё вариант: не делать главной формы.
т.е. в .dpr убрать application.run, а вставить цикл обработки сообщений.
И соответственно проверять на nil все формы....


 
IDL   (2002-04-24 14:02) [4]

Anatoly Podgoretsky
Да, я именно о формах и говорил.
CanClose не подходит - форма должна закрываться, раз ее просят :) но есть же и остальные, которые закрывать не надо.

Deus
У меня есть список всех форм в TList, можно попробовать и в цикле, но циклы = загрузке процессора :( Хотя может и нет - попробую.


 
PaRL   (2002-04-24 14:06) [5]

Или можно просто сделать главной форму другую при обработке Close...



 
Deus   (2002-04-24 14:14) [6]

2IDL (24.04.02 14:02):
В dpr делаешь счётчик кол-ва форм. При уничожении формы этот счётчик умешьшается на 1 и проверяется на =0.

2PaRL © (24.04.02 14:06):
Это как?


 
IDL   (2002-04-24 16:04) [7]

Вроде работает.
repeat
Sleep(50);
Application.processMessages;
until List.Count<=0;




Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
1-26047
Serd_hhc
2002-04-23 18:07
2002.05.09
Уделите пару сек....


14-26243
LazorenkoX
2002-04-01 22:39
2002.05.09
Artificial Intelligence


3-26027
bas1
2002-04-16 10:36
2002.05.09
RANDOM в ORACLE


14-26263
IronHawk
2002-04-02 15:39
2002.05.09
Приветствую Мастеров ! Есть вопрос, мне надо сохранять дату из


14-26227
McSimm
2002-04-01 11:30
2002.05.09
Встреча в чате. Сайт приобретает широкую известность





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский