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

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

← →
Anar ©   (2002-11-10 00:32) [0]

У формы есть обработчик OnCloseQuery:

If MessageDlg("Bal bla bla",mtConfirmation,[mbYes,mbNo],0)=mrYes then CanClose=True
Else CanClose=False;


При закрытии программа выводит диалог о потверждении.
ПРОБЛЕМА: Моя прогрмма запущена. Выбираем Start->Turn Off Computer->Restart (или Shutdown) XP выводит сообщение что мол прогрмма зависла и 2 кнопки End Now и Cancel. Только если нажать End Now система перезагрузится. Как сделать так чтобы программа не выводила никаких сообщений если она вырубается вместе с Windows"ом?

Спасибо.

---

← →
Song ©   (2002-11-10 08:54) [1]

WM_ENDSESSION

---

← →
Ученик ©   (2002-11-10 09:19) [2]

>Anar © (10.11.02 00:32)

private
{ Private declarations }
FCanClose : Boolean;
public
{ Public declarations }
procedure WMQueryEndSession(var Message : TMessage); message WM_QueryEndSession;
end;

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

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

---

← →
Song ©   (2002-11-10 09:41) [3]

2Ученик © (10.11.02 09:19)
Достаточно WM_ENDSESSION

---

← →
Ученик ©   (2002-11-10 09:46) [4]

>Song © (10.11.02 09:41)
:-)

---

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

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



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