Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как закрыть форму кодом извне. ( prg ) / 5 сообщений из 5, страница 1 из 1
21.04.2004, 10:55
    #32489123
Stepanich
Stepanich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть форму кодом извне. ( prg )
Надо открыть и закрыть форму из программы. Открываю без проблем, а вот при попытках типа activeform.release - ошибка - объекта activeform не существует.
Хотя выше я так к ней обращаюсь и нормально. КААААААААААК?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2004, 11:01
    #32489140
AiSK
AiSK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть форму кодом извне. ( prg )
_VFP.Activeform.Release(0) не работатет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2004, 11:02
    #32489143
Вячеслав Клепинин
Вячеслав Клепинин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть форму кодом извне. ( prg )
_VFP.ActiveForm.Release

Если работаете в главном окне фокса, то вместо _VFP можно пользовать _SCREEN.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2004, 11:02
    #32489144
null
null
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть форму кодом извне. ( prg )
Открытие:
Код: plaintext
1.
2.
3.
4.
public lo_obj 
DO form frm_main NAME lo_obj noshow
IF VARTYPE(lo_obj)='O' .AND. !ISNULL(lo_obj)
lo_obj.Show()
endif

Закрытие:
Код: plaintext
1.
2.
IF VARTYPE(lo_obj)='O' .AND. !ISNULL(lo_obj)
RELEASE  lo_obj
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2004, 11:13
    #32489178
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть форму кодом извне. ( prg )
ActiveForm содержит ссылку на активную в данный момент форму. Но хотя форма и существует, она может быть НЕ активна. Поэтому лучше закрывать не активную форму, а форму, открытую самой последней. Такие формы, как правило, имеют индекс 1 в коллекции форм.

IF TYPE("_VFP.Forms(1).name")="C"
_VFP.Forms(1).release()
ENDIF

Если нужно закрыть конкретную форму, то можно адресоваться по ее имени

IF TYPE("_VFP.Forms('MyForm').name")="C"
_VFP.Forms('MyForm').release()
ENDIF

Здесь MyForm - это значение свойства Name соответствующей формы. Такое обращение работает только с объектом _VFP, с объектом _SCREEN - будет ошибка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как закрыть форму кодом извне. ( prg ) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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