VPF::как работает ApplicationHandleException? - Форум программистов

_hunter

Дата 15.9.2005, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

добрый день.

интересует механизм работы этой процедуры.
получается в приложении паралельно работает два обработчика? -- один этот и один, мой -- в файле проекта?

( подробности тут:
http://forum.vingrad.ru/index.php?showtopic=64445
)

--------------------

Tempora mutantur, et nos mutamur in illis...

Rennigth

Дата 15.9.2005, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Код


procedure TApplication.HandleException(Sender: TObject);
begin
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  if ExceptObject is Exception then
  begin
    if not (ExceptObject is EAbort) then
      if Assigned(FOnException) then
        FOnException(Sender, Exception(ExceptObject))
      else
        ShowException(Exception(ExceptObject));
  end else
    SysUtils.ShowException(ExceptObject, ExceptAddr);
end;

Вызывается почти во всех except-ах в Forms, и если есть событие OnException то все хорошо и можно их самому обрабатывать, но! то что если FException нету то вызывается сразу ShowException, наплевав на внешние Try..exceptы мне кажется это не логично. smile

--------------------

(* Honesta mors turpi vita potior *)

_hunter

Дата 15.9.2005, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

понятно. придется исключениями туда-сюда кидаться... странно как-то это сделано...

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »