powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с меню
2 сообщений из 2, страница 1 из 1
Помогите с меню
    #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
Помогите с меню
    #37016918
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Извините, туплю что-то. Все получилось, спасибо.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с меню
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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