Hi alex11100!

> for each loForm in _screen.Forms
> loForm.release()
> endfor

В данном случае цикл FOR EACH не годится. Т.к. по сути он аналогичен циклу

FOR ln1 = 1 TO _SCREEN.FormCount
_SCREEN.Forms(ln1).Release
ENDFOR

А поскольку при удалении формы происходит "сдвижка" всех прочих форм в
коллекции Forms, мы получим что половина имеющихся форм останется
нетронутой. Это легко проверить если открыть скажем 4 формы одновременно.

Тут нужен либо явный цикл

FOR ln1 = _SCREEN.FormCount TO 1 STEP -1

Но с дополнительной проверкой внутри, не уничтожилась ли "очередная" форма в
связи с закрытием другой формы (например при закрытии родительской может
автоматом закрыться куча дочерних, если ссылки на них хранились в свойствах
этой самой родительской формы). Также видимо следует отбрасывать тулбары,
которые также наличествуют в коллекции Forms.

либо более опасный (т.к. может привести к зацикливанию, если какая-то форма
откажется уничтожится по .Release() - а это вполне возможно в случае наличия
"плохих" ссылок)

DO WHILE _SCREEN.FormCount # 0
_SCREEN.Forms(1).Release()
ENDDO

Posted via ActualForum NNTP Server 1.3