Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с меню / 2 сообщений из 2, страница 1 из 1
15.12.2010, 19:34
    #37016907
НадеждаМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с меню
мне необходимо через меню открыть таблицу напросмотр без использования форм.

делаю вот так, но таблица открывается сразу же при запуске программы
SET SYSMENU TO && Использование главного меню
SET SYSMENU ON && Работа со строкой главного меню

* Замена меню FoxPro на собственное
* Определение заголовков создаваемого меню
* PROMPT "\<Текст" - текст, появляющийся в строке меню
DEFINE PAD POINT1 OF _MSYSMENU PROMPT "\<Открыть таблицу"
DEFINE PAD POINT2 OF _MSYSMENU PROMPT "\<Закрыть"
DEFINE PAD POINT3 OF _MSYSMENU PROMPT "\<Добавить"
DEFINE PAD POINT4 OF _MSYSMENU PROMPT "\<Удалить"
DEFINE PAD POINT5 OF _MSYSMENU PROMPT "\<Редактировать"
DEFINE PAD POINT6 OF _MSYSMENU PROMPT "\<Поиск"

* При переходе в пункт 1 меню показать POPUP-меню
ON PAD POINT1 OF _MSYSMENU ACTIVATE POPUP SUPPORT1

DEFINE POPUP SUPPORT1 MARGIN FONT [Arial Cyr],11
DEFINE BAR 1 OF SUPPORT1 PROMPT "\<Таблица Marka"
DEFINE BAR 2 OF SUPPORT1 PROMPT "\<Таблица zajavka"
DEFINE BAR 3 OF SUPPORT1 PROMPT "\<Таблица zapchasti"
* При выборе 1-го пункта меню открыть таблицу marka
ON SELECTION BAR 1 OF SUPPORT1
use marka
browse

ON SELECTION BAR 2 OF SUPPORT1
use zajavka
browse
read events
...
Рейтинг: 0 / 0
15.12.2010, 19:42
    #37016918
НадеждаМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с меню
Извините, туплю что-то. Все получилось, спасибо.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с меню / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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