powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку решить вопрос с формами
4 сообщений из 4, страница 1 из 1
Помогите новичку решить вопрос с формами
    #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
Помогите новичку решить вопрос с формами
    #32459288
Фотография Андрей Давыдов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IF VART(MyForm,.F.)='O'
MyForm.Show()
ELSE
PUBL MyForm
DO FORM MyForm NAME MyForm
ENDIF
...
Рейтинг: 0 / 0
Помогите новичку решить вопрос с формами
    #32460054
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IF WEXIST("MyForm")
ACTIVATE WINDOW MyForm
ELSE
DO FORM MyForm
ENDIF
...
Рейтинг: 0 / 0
Помогите новичку решить вопрос с формами
    #32464996
n0name
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может, не в тему...
По-моему, специально для этого предусмотрена опция SKIP FOR в построителе меню. Заводится глобальная переменная Enable_menu=.T.
При входе в форму Enable_menu=.F., пункт меню становится недоступным.
При выходе из формы Enable_menu=.T.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку решить вопрос с формами
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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