Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Процедура отмены (срочно!)  (Прочитано 5235 раз)
0 Пользователей и 1 Гость смотрят эту тему.
MS
Помогающий

ru
Offline 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
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 12-08-2006 07:32 » 

Читай мануал по функции OnClose. Насколько я помню, нужно возрашать из функции одну из четырех констант. Эти константы говорят VCL что дальше делать с формой.
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #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
Помогающий

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 15-08-2006 15:38 » 

Спасибо, очень помогли! Улыбаюсь
Записан

Ничто так не ограничивает полёт мысли программиста, как компилятор
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines