Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Контекстное меню / 3 сообщений из 3, страница 1 из 1
07.03.2007, 11:22
    #34376832
MAJIbIIII
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контекстное меню
Народ объясните пожалуйста, коким образом можно создать контектстное меню,
которое в процессе работы будет изменяться:
1) пользователь щелкает по текстовому полю;
2) вылезает контектстное меню, со списком наиболее используемых значений для
данного поля (SELECT DISTINCT<имя поля> AS values FROM <имя таблицы>);
3) при выборе любого пункта меню, вписывать PROMPT() в данное поле...

P.S. Помогите кто чем может!!!


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
07.03.2007, 14:47
    #34377624
Aptex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контекстное меню
Схематично можно так:
SELECT DISTINCT<имя поля> AS values FROM <имя таблицы>) INTO ARRAY laValues
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
FOR J = 1 TO ALEN(laValues,1)
DEFINE BAR J OF shortcut PROMPT laValues(1,1)
ENDFOR
ON SELECTION POPUP ALL Form1.Text1.Value = PROMPT()
ACTIVATE POPUP shortcut
...
Рейтинг: 0 / 0
11.03.2007, 12:45
    #34382574
MAJIbIIII
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контекстное меню
AptexСхематично можно так:
SELECT DISTINCT<имя поля> AS values FROM <имя таблицы>) INTO ARRAY laValues
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
FOR J = 1 TO ALEN(laValues,1)
DEFINE BAR J OF shortcut PROMPT laValues(1,1)
ENDFOR
ON SELECTION POPUP ALL Form1.Text1.Value = PROMPT()
ACTIVATE POPUP shortcut

Спасибо, подошло!!! :)
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Контекстное меню / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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