Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c