так обработка сообщений идет в совсем другом контексте.
т.е. что происходит:
вызываем curPanel.ShowNext, она шлет сообщение, происходит выход из блока try ( потому как исключений нет ) курсор становится на строку за блоком и в это время сообщение доходит до адресата -- появляется исключение. ну а дальше все понятно

_hunter
Т.е. исключение на ShowNext происходит только лишь в режиме трассировки!? На самом деле отрабатывают все инструкции после блока try...except, и только потом возникает ошибка!?
Добавлено @ 19:39
Где же её тогда перехватывать!?

нет, в режиме "без отладки" это исключение тоже появится и тоже проскочи мимо.
ловить его нужно там, где оно бросается. т.е. на самом высоком уровне приемника сообщений.
в данном случае в CMVisibleChanged(

Попробовал отловить в CMVisibleChanged - результат тот же.....при возникновении ошибки выполняется инструция следующая за блоком try...except...

Вот:

Код

procedure TTrxSQLPanel.CMVisibleChanged(var Message: TMessage); begin   try   ...           FPrevPanel.Enabled:=false;   ...   except     raise;   end;   showmessage('Тест'); end;

Сначала появляется сообщение об ошибке, а затем появляется сообщение "Тест"...

Это сообщение отредактировал(а) Susel - 14.1.2006, 11:27

Выложи здесть или пришли на почту, тестовый проект и свои компоненты

Выкладываю тестовый пример с тестовыми компонентами. Расширение pas нужно изменить на rar.....

Присоединённый файл ( Кол-во скачиваний: 4 )
 Test.pas 4,56 Kb

Твое сообщение перехватывают в модуле Controls

Код

procedure TWinControl.MainWndProc(var Message: TMessage); begin   try     try       WindowProc(Message);     finally       FreeDeviceContexts;       FreeMemoryContexts;     end;   except     Application.HandleException(Self);   end; end;

А как же мне его отловить!?

замени оконную процедуру...

Можно конечно и заменить оконную процедуру, но может стоит подумать "стоит ли игра свечь?" Может проще поделиться с людьми идеей, которую хочешь сделать и они предложат вариант при котором не нужно будет переписывать все компоненты, которые хочется положить на эту панель...

Да идея то прозрачна из примера, на форме есть набор связанных панелей, которые должны появляться друг за другом по нажатию определённой клавиши, при этом предыдущая панель не должна быть доступна для редактирования. Есть комбобокс, на который вешается некоторое условие проверки (на основе информации из БД) и в случае неудовлетворительной проверки комбобокс не должен терять фокуса, т.е. из него не возможно выйти, а следовательно и следующая панель не должна появиться.

Вот в общем то в кратце и вся идея (правда кроме перечисленного и панель и комбобокс обладают ещё рядом дополнительных возможностей, не относящихся к вопросу)

По мне проще проверку качества заполнения данных вынести из компонентов и делать ее перед созданием новой панели. Или кто мешает Вызвать OnExit у компонентов до создания новой панели?

Дело в том, что проверка содержимого производится при помощи SQL запроса, в качестве параметра используюещего введённое значение. Причем запрос для проверки настраивается (хранится в одной из системных таблиц).



События OnExit для компонентов могут быть и не определены, а проверку делать нужно.....
Допустим что вызвали OnExit для всех компонентов, но в случае ошибки как я понял опять же ошибка будет перехвачена оконной процедурой!

Неужели данную проблему таки можно решить, только переписав оконную процедуру!?

учитывая что это проблема места обработки...