![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрет закрытия окна [D5, XP]
Вячеслав Бессонов © (2006-04-04 20:44:00)При попытке закрытия окна появляется новое с вопросом о сохранении, при этом эти окна не должны закрываться, пока пользователь не ваыберет действие во втором окне.
Вячеслав Бессонов (2006-04-04 20:56:00) [1]Спасибо. Мой вариант был гораздо хуже, да и не совсем работал.
Вовка (2006-04-04 20:47:00) [2]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageBox(handle,'Закрыть программу','Выход',MB_YESNO) = ID_YES;
end;