OnCloseQuery

← →
Daiz13 (2002-08-13 16:38) [0]

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

← →
Ученик (2002-08-13 17:09) [1]

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;

← →
Толик (2002-08-13 17:43) [2]

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

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

← →
Ученик (2002-08-13 17:47) [3]

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

← →
3JIA9I CyKA (2002-08-13 19:53) [4]

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

OnCloseQuery Найти похожие ветки