Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 проблема с меню  [new]
dans
Member

Откуда:
Сообщений: 65
Создана главная форма UPR , как AS TOP LEVEL FORM
В событии INIT вызывается меню: DO F_MENU.MPR WITH THIS
Один из пунктов меню вызывает форму FORM1, в событии INIT которой ставлю
Блокировку меню: SET SKIP OF MENU F_MENU .T.
(пробовал SET SKIP OF MENU MSYSMENU .T.)
Эта блокировка не срабатывает. Похоже не находится имя меню F_MENU. (если меню
вызывается не из формы UPR, то блокировка работает).
Подскажите пожалуйста в чем может біть проблема
17 дек 04, 18:29    [1190246]     Ответить | Цитировать Сообщить модератору
 Re: проблема с меню  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
Если ты сгенерил меню через стандартный дезайнер меню и не забыл поставить птичку в пункте Top-Level Form (главное меню View->General Options), то после генерации меню, как и положено, будет сгенерен текстовый файл F_MENU.MPR (который ты собственно и запускаешь командой DO).

Открой это файл на редактирование как обычный программынй файл

MODIFY COMMAND F_MENU.MPR

В его заголовке приведены примеры вызова этого меню. Имя меню формируется в переменной m.cMenuName. Явно, имя меню задается вторым параметром в команде

DO F_MENU.MPR WITH THISFORM,THISFORM.name

В таком синтаксисе имя меню будет совпадать с именем формы в которой это меню открыто.

В противном случае имя меню генерится функцией SYS(2015). Т.е. случайным образом.
17 дек 04, 23:38    [1190610]     Ответить | Цитировать Сообщить модератору
 Re: проблема с меню  [new]
Hel!Riser
Member

Откуда: Нижний Новгород
Сообщений: 972
2 ВладимирМ
полночный респект ;)
17 дек 04, 23:41    [1190615]     Ответить | Цитировать Сообщить модератору
 Re: проблема с меню  [new]
dans
Member

Откуда:
Сообщений: 65
2.Владимир
Большое спасибо за подсказку!Все получилось!
20 дек 04, 12:28    [1192951]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить