не закрывается вызванное окно

Из меню вызывается форма
windowsType=0-Modeless
Из неё вызывается другая форма с изображениями
windowsType=1-Modal
FORM.Init()
[code]LPARAMETERS tcFlag,tcTab,toform,tcG
THISFORM.VISIBLE=.T.
THISFORM.v_form=toform
THISFORM.lcFlag=m.tcFlag
....
[/code]
Image.DblClick()
[code]THISFORM.cmdOk.CLICK()[/code]
THISFORM.cmdOk.CLICK
[code]
....
THISFORM.RELEASE()
[/code]
THISFORM.Unload
[code]LOCAL lnlcFlag,lcFlag
m.lnlcFlag=THISFORM.n_rec
m.lcFlag=THISFORM.lcFlag
THISFORM.v_form.cflag=m.lcFlag
RETURN m.lnlcFlag
[/code]
По идее эта форма перестаёт существовать, однако при закрытии программы выдаётся ошибка об отсутствии переменной v_form
отладчик останавливается на строчке функции THISFORM.Unload вродебы уже закрытой формы....

0

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

Пользователи не найдены
Оставить комментарий
Авторизация
*
*
Генерация пароля