Текущий архив: 2011.10.09;
Скачать: CL | DM;
Вниз
Закрытие формы при возникновении в ней исключения Найти похожие ветки
← →
petvv (2011-06-23 07:21) [0]Есть главная форма при её создании объявляю:
Application.onException:=HandleException;
...
procedure TfMain.HandleException(Sender: TObject; E: Exception);
var
EE: EDBEngineError;
begin
if E is EDBEngineError then
begin
ShowError(EE);
end;
end;
procedure TfMain.ShowError(AExc: EDBEngineError);
begin
GetErrText(AExc.Errors[AExc.ErrorCount-1].ErrorCode);
MessageDlg(GetErrText(AExc.Errors[AExc.ErrorCount-1].ErrorCode)+#13#10+
AExc.Errors[AExc.ErrorCount-1].Message,mtWarning, [mbOK], 0);
end;
На главной форме есть меню из которого запускаются другие формы
При нажатии на меню выполняется следующий код
procedure TfMain.ShowATPClick(Sender: TObject);
begin
//Выводим форму для просмотра
edKard:=False;
with TfseATP.Create(Application) do
try
// до появления
ShowModal;
// после закрытия
finally
Free;
end;{try}
end;
На дочерней форме Table, DataSet, Grid, при возникновении исключения на дочерней форме выдаётся сообщение об ошибке, но после нажатия на OK дочерняя форма открывается. Вот собственно вопрос: как сделать чтобы при возникновении исключения на дочерней форме выдавалось сообщение об ошибке, а сама форма не открывалась.
← →
Плохиш © (2011-06-23 11:33) [1]
> Вот собственно вопрос: как сделать чтобы при возникновении
> исключения на дочерней форме выдавалось сообщение об ошибке,
> а сама форма не открывалась.
Надо обрабатывать исключения и делать требуемые действия. Но для этого программист нужен.
← →
Игорь Шевченко © (2011-06-23 12:33) [2]
> Вот собственно вопрос: как сделать чтобы при возникновении
> исключения на дочерней форме выдавалось сообщение об ошибке,
> а сама форма не открывалась.
RTFM: TCustomForm.HandleCreateException
Страницы: 1 вся ветка
Текущий архив: 2011.10.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.008 c
