Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вместо окна системного сообщ. вывести своё [D6, WinXP]

lovres © (2002-08-08 13:51:00)
Суть в том, что при попытке обновления БД в процессе выполнения запроса происходит ошибка, свызанная с тем, что некоторые поля не могут быть пустыми. Я обрабатываю эту ошибку и делаю CancelUpdates, но выводится системное диалоговое окно. Как можно заменить текст в нём, а лучше запретить его вывод или вывести вместо него своё сообщение

lovres (2002-08-08 15:29:00) [1]
Спасибо! Сообщение больше не выводится!

Skier (2002-08-08 15:05:00) [2]
>lovres
Action := daAbort ?

lovres (2002-08-08 14:57:00) [3]
procedure TData.Quest_by_ThemePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin

Quest_by_Theme.CancelUpdates;

end;
выполнение программы в этом случае продолжается, но до этого выводится сообщение типа "Cannot insert the value NULL into...и т.д."
как заменить или отменить вывод сообщения

Skier (2002-08-08 14:48:00) [4]
>lovres

> Я обрабатываю эту ошибку

Тогда расскажи как ты её обрабатываешь...

lovres (2002-08-08 14:44:00) [5]
to Skier
Я, вообще, не очень опытен, но мне как бы некуда try блок вписать, я произвожу изменения в самом DBGrid"е(редактирую строку) и обновление вызывается автоматически(эти действия в моём коде никак не отражены)

Skier (2002-08-08 13:54:00) [6]
>lovres

Используй try-блок...

try
//your code goes here...
except
on E : Exception do ShowMessage("Your message !")
end; //try

или так

try
//your code goes here...
except
ShowMessage("Your message !");
end; //try

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »