Форум: "Основная";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
ВнизОтлючить вывод служебных окон с ошибками. Найти похожие ветки
← →
TkN © (2007-02-20 15:28) [0]У меня вопрос: как отключить вывод окон, которые содержат критические ошибки.
← →
Ega23 © (2007-02-20 15:54) [1]Tools -> Debugger Options -> Language Exceptions -> Stop on Delphi Exceptions галку сними и ребилд сделай.
← →
RASkov (2007-02-20 17:30) [2]> [0] TkN © (20.02.07 15:28)
В дополнение к [1], где отключается останов выполнения в среде IDE при исключениях.
Если есть ТApplicationEvents - кинь на форму и сделай пустой, или какой тебе надо, обработчик OnException....
Вот пример:procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
// ShowMessage(E.Message);
end;
procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
begin
x:=0;
ShowMessage(IntToStr(5 div x));
end;
← →
RASkov (2007-02-20 17:36) [3]> Если есть ТApplicationEvents - кинь на форму
Если нет - то так:type
;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure AppExcept(Sender: TObject; E: Exception);
....
end;
implementation
procedure TForm1.AppExcept(Sender: TObject; E: Exception);
begin
// ShowMessage(E.Message); // обрабатывай исключения на свой вкус.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:=AppExcept;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
begin
x:=0;
ShowMessage(IntToStr(5 div x));
end
← →
MBo © (2007-02-20 17:49) [4]SetErrorMode
← →
Loginov Dmitry © (2007-02-20 18:00) [5]Мой компьютер -> Свойства -> Дополнительно -> Отчет об ошибках -> Отключить отчет об ошибках
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.116 c