| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnCloseQuery
Anar © (2002-11-10 00:32:00)У формы есть обработчик 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"ом?
Спасибо.
Ученик (2002-11-10 09:46:00) [1]>Song © (10.11.02 09:41)
:-)
Song (2002-11-10 09:41:00) [2]2Ученик © (10.11.02 09:19)
Достаточно WM_ENDSESSION
Ученик (2002-11-10 09:19:00) [3]>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 08:54:00) [4]WM_ENDSESSION
| |
