|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.11.2006, 15:50 | #1 |
Регистрация: 17.11.2006
Сообщений: 4
|
OnFormClose нужна помощь, плз.
Предположим пользователь не сохронил файл перед выходом из программы и пытается закрыть форму.
procedure TForm1.FormClose(Sender: TObject); begin if файл не сохранен then begin MessageDlg('Сохраните файл',mtError,[mbOk],0); Exit; //я так понимаю это команда должна выходить из процедуры и не закрывать форму, а выходит все наоборот. end; end; Вопрос: Как сделать, чтобы форма не закрывалась при нажатии на крестик формы или сочетанием альт+ф4 если пользователь не сохранил файл, либо другое действие, которое обязательно нужно сделать перед закрытием формы? |
20.11.2006, 16:02 | #2 |
Пользователь
Регистрация: 14.11.2006
Сообщений: 23
|
Надо обрабатывать OnCloseQuery
Параметр CanClose и определяет можно ли закрыть форму |
20.11.2006, 16:05 | #3 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Убери в форме в свойствах кнопку выхода и поставь свою кнопку(это самый простой вариант, а насчёт Alt+F4 врать не буду, не такой специалист и winapi плохо знаю.
|
20.11.2006, 16:21 | #4 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,599
|
а не проще ли сохранить файл при закрытии?
|
20.11.2006, 16:40 | #5 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
при закрытии можно ещё и сохранить файл как копию исходного с определённым именем, а при следующей загрузке проверить его наличие и как следует обматерить пользователя и предложить дальнейшие действия с изменениями.
|
20.11.2006, 19:30 | #6 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Цитата:
Действуй по совету selenux. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь по таб. | *Иван* | Microsoft Office Excel | 1 | 22.11.2007 20:50 |
Нужна помощь | LeoN | Общие вопросы Delphi | 12 | 18.03.2007 07:58 |
Нужна помощь! | mEka | Помощь студентам | 2 | 04.03.2007 01:39 |
нужна помощь | verto | Помощь студентам | 1 | 02.01.2007 07:48 |