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 нет и не будет.

TApplication Найти похожие ветки