Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Процедура отмены (срочно!)
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: Процедура отмены (срочно!) (Прочитано 6345 раз)
0 Пользователей и 1 Гость смотрят эту тему.
MS
Помогающий
Offline
Пол:
Процедура отмены (срочно!)
«
:
12-08-2006 07:21 »
Подскажите пожалуйста как сделать процедуру отмены. Вот код на Onclose:
if Messagedlg('Сохранить изменения в файле?',mtcustom,
[mbYes, mbNo, mbcancel], 0) = mrYes then
saveClick(Sender);
if Messagedlg('Сохранить изменения в файле?',mtcustom,
[mbYes, mbNo, mbcancel], 0) = mrcancel then (а далше что?)
Нужно, чтобы отменилось закрытие формы.
Заранее благодарю.
«
Последнее редактирование: 13-12-2007 18:21 от Алексей1153++
»
Записан
Ничто так не ограничивает полёт мысли программиста, как компилятор
Finch
Спокойный
Администратор
Offline
Пол:
Пролетал мимо
Re: Процедура отмены (срочно!)
«
Ответ #1 :
12-08-2006 07:32 »
Читай мануал по функции OnClose. Насколько я помню, нужно возрашать из функции одну из четырех констант. Эти константы говорят VCL что дальше делать с формой.
Записан
Не будите спашяго дракона.
Джаффар (Коша)
RomCom
Опытный
Offline
Пол:
Re: Процедура отмены (срочно!)
«
Ответ #2 :
12-08-2006 08:02 »
Надо обрабатывать событи CloseQuery и изменять CanClose на false если форму не надо закрывать.
Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var mr:Integer;
begin
mr:=Messagedlg('Сохранить изменения в файле?',mtcustom, [mbYes, mbNo, mbcancel], 0);
if mr = mrYes then saveClick(Sender)
else if mr = mrCancel then CanClose:=false;
end;
«
Последнее редактирование: 13-12-2007 18:22 от Алексей1153++
»
Записан
R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
MS
Помогающий
Offline
Пол:
Re: Процедура отмены (срочно!)
«
Ответ #3 :
15-08-2006 15:38 »
Спасибо, очень помогли!
Записан
Ничто так не ограничивает полёт мысли программиста, как компилятор
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Процедура отмены (срочно!)
Загружается...