Скачать: CL | DM;

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]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c