Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку решить вопрос с формами / 4 сообщений из 4, страница 1 из 1
26.03.2004, 20:19
    #32459236
BigTaur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку решить вопрос с формами
Привет всем!
Есть главная форма, в ней меню, там комманда DO FORM Myform
сколько раз выбираешь столько экземпляров формы и появляется, а очень хотелось бы, чтоб она была одна (чтоб другие не выскакивали), а если неактивна, чтобы по клику в меню она становилась активной, вообщем как в любом MDI приложении. Наверняка как-то это просто можно реализовать, а вот как я не знаю! Помогите, чем могете!

P.S. С фоксом недавно. Пока надумал только такое.
my.prg
PUBLIC xx
xx=.T.

menu.prg
IF xx THEN
xx=.F.
DO FORM MYFORM
ENDIF

myform
Unload:
xx=.T.

Но вопервых про фокус тут тишина, во вторых наверняка это криво.
Заранее спасибо
...
Рейтинг: 0 / 0
26.03.2004, 21:54
    #32459288
Андрей Давыдов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку решить вопрос с формами
IF VART(MyForm,.F.)='O'
MyForm.Show()
ELSE
PUBL MyForm
DO FORM MyForm NAME MyForm
ENDIF
...
Рейтинг: 0 / 0
29.03.2004, 08:49
    #32460054
АлександрК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку решить вопрос с формами
IF WEXIST("MyForm")
ACTIVATE WINDOW MyForm
ELSE
DO FORM MyForm
ENDIF
...
Рейтинг: 0 / 0
01.04.2004, 10:29
    #32464996
n0name
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку решить вопрос с формами
Может, не в тему...
По-моему, специально для этого предусмотрена опция SKIP FOR в построителе меню. Заводится глобальная переменная Enable_menu=.T.
При входе в форму Enable_menu=.F., пункт меню становится недоступным.
При выходе из формы Enable_menu=.T.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку решить вопрос с формами / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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