![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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;