Блог программистов



F.A.Q.Pblog

1й год Форума программистов 2006-2007

OnFormClose

Предположим пользователь не сохронил файл перед выходом из программы и пытается закрыть форму.
procedure TForm1.FormClose(Sender: TObject);
begin
if файл не сохранен then
begin
MessageDlg('Сохраните файл',mtError,[mbOk],0);
Exit; //я так понимаю это команда должна выходить из процедуры
и не закрывать форму, а выходит все наоборот.
end;
end;
Вопрос: Как сделать, чтобы форма не закрывалась при нажатии на крестик формы или сочетанием альт+ф4 если пользователь не сохранил файл, либо другое действие, которое обязательно нужно сделать перед закрытием формы?


Просмотр ответов:
http://programmersforum.ru/showthread.php?t=400


Другие вопросы:
Работа с .ini файлами
Изменение размера изображения, Crop image to fit height & width
Защита приложения от копирования
Как определить название жёсткого диска?
Спрайты



<<<Назад    Вперёд>>>