Обработка ошибок
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #1
Обработка ошибок
Перехват и обработка ошибок в дельфи.

Код:
type
  TForm1 = class(TForm)
//...........
  procedure MyExcept(Sender:TObject; E:Exception);
//........
  private
    { Private declarations }
//.....

procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
  MessageDlg(E.Message, mtInformation, [mbOk], 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExcept;
end;
(Последний раз сообщение было отредактировано 25.12.2011 в 21:55, отредактировал пользователь all__.)
03.05.2010 9:53
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ 


Похожие темы
Тема: Автор Ответов: Просмотров: Посл. сообщение
  TEdit обработка Ctrl+A all__ 2 1 553 23.02.2010 10:42
Посл. сообщение: all__