Is the goal to close all open forms? Or just check the number of open forms?
LOCAL lnForms, llDone
lnForms = _SCREEN.FORMCOUNT
llDone = .T.
DO WHILE lnForms > 0 AND llDone
llDone = _SCREEN.FORM(lnForms).QUERYUNLOAD()
IF llDone
_SCREEN.FORM(lnForms).RELEASE
lnForms = lnForms - 1
ENDIF
ENDDO
>Hi.
>I have a button which allows exit out of an app, but before I do so I check _Screen.FormCount to check the no. of open forms.
>
>This .most of the time returns 4 when I have no open forms, but all I have open is A Menu and a Toolbar.
>
>Is this the right command or is there a better way. ?
>
>Regards,
>
>Gerard
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"