Каскадный режим | Линейный режим

***all__*** · 03.05.2010 9:53

Перехват и обработка ошибок в дельфи.

Код:

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;

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

Каскадный режим \| Линейный режим Обработка ошибок
Автор	Сообщение