ну а если так:
допустим, есть форма с именем frm_my.
Создаем ее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Local oFrm
oFrm = .null.
DO FORM frm_my NAME oFrm Noshow
if vartype(oFrm)!='O' or Isnull(oFrm)
* Объект не создан, можно поймать TRY
Return .f.
endif
oFrm.Show( 1 )
if vartype(oFrm)!='O' or Isnull(oFrm)
&& Вот тут ты попадешь если ты закрыл по Close или release
Return .f.
endif
чтобы отсечь release, в кнопочке "Выход", или что там у тебя нужно делать
Hide() и ставить признак того что делать, ну допустим либо в глобальную переменную либо в твое свойство формы.
Допустим код клика по кнопке "Выход"
1.
2.
3.
with thisform
.ok =.F.
.Hide()
endwith
Тогда при скрытии формы с экрана объект форма еще существует.
И им можно "поиграть", пока сам явно не выдашь ему
RELEASE oFrm
Не объектом у тебя в таком случае будет форма только в том случае еcли ты ее закрыд по Close.
1.
2.
3.
4.
5.
6.
7.
if vartype(oFrm)!='O' or Isnull(oFrm)
&& Вот тут ты попадешь если ты закрыл по Close , release у тебя нет
Return .f.
endif
if !oFrm.ok
Release oFrm
endif
