Form.Release и Form.Refresh для активной формы

Бывают случаи, когда несколько форм обращаются к одним и те же процедурам, по окончании работы которых, форма должна или обновиться или закрыться.

Form.Release и Form.Refresh для активной формы

Бывают случаи, когда несколько форм обращаются к одним и те же процедурам, по окончании работы которых, форма должна или обновиться или закрыться.
Я долго мучался, пытаясь прописать в этих процедурах какая же форма в данный момент у меня открыта (активна) и что именно ее надо закрыть (обновить). Потом нашел выход, который и предлагаю тем, кто подобно мне еще на стадии "мучений".
Две маленькие програмки:
win_rele для закрытия формы
win_ref для обновления
Вызываются из процедуры, формы, откуда угодно.
Do win_rele
Do win_ref
Ниже сами prg-шники (они в принципе одинаковы)

*** win_rele.prg
PRIVATE cWin
cWin = alltrim(WOUTPUT())
if not empty(cWin)
oper = cWin+'.Release'
&oper
endif
RETURN

*** win_ref.prg
PRIVATE cWin
cWin = alltrim(WOUTPUT())
if not empty(cWin)
oper = cWin+'.Refresh'
&oper
endif
RETURN

Конечно это не верх творчества, за что и приношу извинения опытным FoxPro-шникам, но кому то это может и пригодиться.

Автор: Каратаев
0

Автор публикации

не в сети 20 лет

Каратаев

0
Комментарии: 0Публикации: 4Регистрация: 04-12-2001
Оставить комментарий
Авторизация
*
*
Генерация пароля