Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / При явном наличии ошибки она не появляется / 2 сообщений из 2, страница 1 из 1
16.05.2007, 16:38
    #34529932
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При явном наличии ошибки она не появляется
Рисую контекстное меню:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
DEFINE POPUP shorcutmenu SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR  1  OF shorcutmenu  PROMPT '1'
DEFINE BAR  2  OF shorcutmenu  PROMPT '2'
DEFINE BAR  3  OF shorcutmenu  PROMPT '3'

ON SELECTION BAR  1  OF shorcutmenu DO FORM E

TRY
	ACTIVATE POPUP shorcutmenu
	RELEASE POPUPS shorcutmenu
CATCH
ENDTRY
Видно, что в случае выбора BAR 1 должна запустится форма Е. DO FORM E - это я от фонаря написал, чтобы проверить будет ли ошибка (формы Е не существует). Запускаю на выполнение, выбираю BAR 1 - ничего не происходин (сообщения об ошибки нету). Если вместо:
TRY
ACTIVATE POPUP shorcutmenu
RELEASE POPUPS shorcutmenu
CATCH

поставить просто
ACTIVATE POPUP shorcutmenu
всё происходит по правилам, появляется ошибка, как надо. В чём тут секрет? Зачем писать
TRY
ACTIVATE POPUP shorcutmenu
RELEASE POPUPS shorcutmenu
CATCH
вместо
ACTIVATE POPUP shorcutmenu
я не понимаю. Код этот я содрал, признаюсь честно. Можно кто разьяснит ситуацию. Большое спасибо!
...
Рейтинг: 0 / 0
16.05.2007, 18:01
    #34530347
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При явном наличии ошибки она не появляется
конструкция трай как раз и применяется для локальной обработки ошибки

если Вы желаете ччто-то сделать
при ошибке, то
напишите что -то
между
Catch to loErr
messageb(loErr.....)
endtry
или вызовите свой обработчик


читайте хелп
http://www.foxclub.ru/html/b74b696c-f6ed-4602-a4b7-943756338b01.htm
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / При явном наличии ошибки она не появляется / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]