Текущий архив: 2003.04.24;
Скачать: CL | DM;
Вниз
TApplication Найти похожие ветки
← →
Alexei Dragoner (2002-07-17 13:20) [0]Добрый день всем,
Объясните, пожалуйста, каким образом в 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) [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 нет и не будет.
Страницы: 1 вся ветка
Текущий архив: 2003.04.24;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
