Есть 2-а собственных компонента TMyPanel и TMyExtLookupEdit - наследники TPanel и TdxInplaceExtLookupEdit соответственно.
TMyPanel - связанные панели, т.е. есть ссылка (свойство такого же типа TMyPanel) на предыдущую панель PrevPanel и на следующую NextPanel.

Для TMyPanel определена процедура:

Код

procedure CMVisibleChanged(var Message: TMessage);message CM_VISIBLECHANGED;     ...       if Visible and Assigned(FPrevPanel) then         FPrevPanel.Enabled:=false;      ....

Для TMyExtLookupEdit переопределена процедура DoExit таким образом, что в случае неверного ввода генерируется ошибка:

Код

raise Exception.Create...

Есть форма содержащая MyPanel1 и MyPanel2. MyPanel1 содержит MyExtLookupEdit1. Форма имеет следующий код:

Код

try         curPanel.ShowNext;       except         curPanel.HideNext;         raise;       end;

ShowNext и HideNext равносильны curPanel.NextPanel.Visible:=true и curPanel.NextPanel.Visible:=false соответственно.

Проблема в том, что при возникновении ошибки (введено неверное значение в MyExtLookupEdit1) ошибка генерируется и сообщение об ошибке появляется, но управление не передается в блок except и следующая панель остается видимой.

значит исключение бросает не curPanel.ShowNext

В режиме трассировки ставлю точку остановки на curPanel.ShowNext в блоке try, нажимаю F8 - получаю ошибку, но управление блоку except не передается....

В режиме трасировки и при запуске из delpi исключения вызываются всегда - это не значит что програма работает с ошибками.

alexeis1
Чёт не понял к чему это!?
При запуске exe - ошибка также успешно генерируется, но следующая панель не исчезает!

Это сообщение отредактировал(а) Susel - 13.1.2006, 17:44

может быть такое что ты уже обрабатываешь эту ошибку..

Код

Procedure DoSome; Begin   Try      что то с ошибкой   Except   End; End; Procedure ShowNext Begin   Try     DoSome   Except     ShowMessage(...);   End End;

Получается что у тебя есть ошибка при вызове DoSome, но в процедуре ShowNext ты не попадешь в блок Except.

ShadeSt
Проверял, нет такого.....
Да и как правило, если обрабатываю ошибки - ставлю raise, т.е. не подавляю сообщение об ошибке, как в твоем примере...

Цитата(Susel @ 13.1.2006, 16:23 )

но управление блоку except не передается

а куда передается?

Тогда интересно в обработчике какого события ошибка и где ты ее потом хочешь поймать?
Вне этого обработчика что ли?

_hunter
Передается следующей за блоком try...except инструкции.......

Код

try             curPanel.ShowNext;           except             curPanel.HideNext;             raise;           end;

Если ты хочешь поймать тут ошибку, то надо чтобы она была в процедуре ShowNext.
А исключение при неверном вводе, у тебя где?? в TEdit.OnExit?

Это сообщение отредактировал(а) ShadeSt - 13.1.2006, 18:09

создай тестовый проект в котором просто кинь исключение и попробуй его поймать.
потом перенеси код в этот проект -- посмотри что будет.
может ты обработку исключений отключил...

Да, исключение можно сказать в OnExit (на самом деле в DoExit), но DoExit фактически вызывается в ShowNext, хотя и через сообщение винды......
Добавлено @ 18:34
_hunter
В блоке try сгенерировал деление на 0 - except отработал, однако если деление на ноль генерирую в DoExit - управление блоку except не передается......

значит где-то в ShowNext стоит свой обработчик.

Ну нет там обработчика....нет.....
Добавлено @ 19:16
Приведу больше кода:

Код

procedure TTrxSQLPanel.ShowNext; begin   if NextPanel<>nil then     NextPanel.Show; end;

Код

procedure TTrxSQLPanel.CMVisibleChanged(var Message: TMessage); \\Обработчик сообщения CM_VISIBLECHANGED begin ... \\никаких обработчиков ошибок тут тоже нет   if Visible then   begin   ...         FPrevPanel.Enabled:=false;         GetFirstCanFocus.SetFocus;   ...   end ... end;

Код

procedure TTrxOraCustomExtLookupEdit.DoExit; begin ...         raise Exception.Create('Ошибка!'); ...   inherited; end;