Закрытие формы при возникновении в ней исключения

← →
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]

> Вот собственно вопрос: как сделать чтобы при возникновении
> исключения на дочерней форме выдавалось сообщение об ошибке,
> а сама форма не открывалась.

Надо обрабатывать исключения и делать требуемые действия. Но для этого программист нужен.

> Вот собственно вопрос: как сделать чтобы при возникновении
> исключения на дочерней форме выдавалось сообщение об ошибке,
> а сама форма не открывалась.

RTFM: TCustomForm.HandleCreateException

Закрытие формы при возникновении в ней исключения Найти похожие ветки