Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2014, 14:00   #1
Dozent
Форумчанин
 
Регистрация: 21.05.2008
Сообщений: 495
По умолчанию Перехват сообщения при удалении данных из DataSet`a

Добрый день, подскажите плз, как перехватить событие которые выводит стандартное сообщение при удалении данныих из датасета (TMemTableEh).

Суть проблемы в том чт она форме лежит TDBGridEh в нём управление идёт через навигатор и при нажатии кнопки удаить этом самом навигаторе (крестик) сначало выходит стандартное собщение об удалении а потом уже моё сообщение после проверки данных... Мне же не нужно чтобы выходила стандартное сообщение потомучто оно отличается от соощений которые выходят в проекте, условия обрабатываются в

Код:
procedure TfrmServiceCard.mtCompositionBeforeDelete(DataSet: TDataSet);
begin
  if varisNull(mtComposition.FieldValues['DT_END']) or (mtComposition.FieldValues['DT_END'] > DATE) then begin
    if MessageBox(Handle, PChar('Услуга не может быть удалена, так как использовалась в составе. Исключить услугу?'), PChar('Удаление'), MB_YESNO) = mrYes then begin
     //MessageBox(Handle, 'Удалить запись?', pchar(Caption), MB_YESNO + MB_ICONQUESTION) = IDYES
      mtComposition.Edit;
      mtComposition.FieldValues['DT_END'] := DATE;
      mtComposition.Post;
    end;
  end
  else
    raise Exception.Create('Услуга не может быть удалена, так как использовалась в составе');
  Abort;
end;
И прежде чем сработает это ткод выходит стандартное сообщение которое ненужно...
Dozent вне форума Ответить с цитированием
Старый 21.01.2014, 14:26   #2
Dozent
Форумчанин
 
Регистрация: 21.05.2008
Сообщений: 495
По умолчанию

проблема решена, в свойствах грида надо было выключить свойство запрсоа на удаление
Dozent вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DBE Проверка на наличие связанных данных при удалении записи teapot C/C++ Базы данных 4 25.02.2012 19:13
Перехват сообщения сервера Иллидан Работа с сетью в Delphi 1 02.10.2010 23:23
Перехват сообщения об ошибке SanekIrk Работа с сетью в Delphi 2 06.07.2009 04:53
Перехват сообщения от кнопки... HunterMan Общие вопросы .NET 3 08.12.2008 21:53