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-шникам, но кому то это может и пригодиться.
Автор публикации
