TApplication
Alexei Dragoner © (2002-07-17 13:20:00)
Добрый день всем,
Объясните, пожалуйста, каким образом в KOL MCK можно получить
доступ к аналогу TApplication. Вот стандартный пример:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
Application.Terminate;
end;
Большое спасибо.
Vladimir Kladov (2002-07-17 16:26:00) [1]
Можно занести в faq:
Если с MCK, то:
В Проект_3.inc вставить:
TRY
В проект_4.inc вставить:
EXCEPT
действия
END;
Если без MCK, то внести Run( Applet ) внутрь try-except.
Можно между
try-except поместить все, что было в dpr между begin и end.
В обоих случаях, требуется (если EXCEPT) использовать в uses
модуль
err.pas. Как пользоваться except, смотреть в описание в
kol_err.zip.
События OnExcept нет и не будет.
Наверх 
ЧАТ |
Орешник |
|
