Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OnCloseQuery


Daiz13 ©   (2002-08-13 16:38:00) 

Нужно чтобы при нажатии на кнопку закрытия окна (крестик в углу) приложение сворачивалось обратно в трэй, а не закрывалось.
Сделать вроде легко - в OnCloseQuery CanClose=False и форма минимизируеться, но... Теперь эта прога никак не реагирует на попытки системы закрыть ее перед перезагрузкой. Как быть?


3JIA9I CyKA   (2002-08-13 19:53:00) [1]

А критично главное окно показывать?


Ученик   (2002-08-13 17:47:00) [2]

>Толик (13.08.02 17:43)
Тут немного другая проблема


Толик   (2002-08-13 17:43:00) [3]

to Ученик © (13.08.02 17:09)
Зачем же для того, чтобы выгрузить прогу, Винду закрывать???
WM_QUERYENDSESSION - это же когда завершается сеанс работы с Виндой.

Я бы вызвал Application.Terminate


Ученик   (2002-08-13 17:09:00) [4]


FShutdown : Boolean;
procedure WMQueryEndSession(var Message : TMessage); message WM_QUERYENDSESSION;

procedure TForm1.WMQueryEndSession(var Message : TMessage);
begin
FShutdown := True;
inherited
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FShutdown;
...
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо