Thank you,
This is exactly what I was looking for.
>Larry,
>
>
>
>* 15-Jun-98 made into separate program
>
>procedure CloseForms
>
>for i = _screen.FormCount to 1 step -1
> * 15-May-98 added additional tests to prevent 1924 error
> * 25-Aug-98 changed < to <=
> if ( ( i <= _screen.FormCount ) and ;
> ( type( "_screen.Forms[i]" ) == "O" ) )
>
> if ( _screen.Forms[i].QueryUnload() )
> _screen.Forms[i].Release()
> else
> _screen.Forms[i].Activate()
> endif
> endif
>endfor
>
>
>>How can I close all open forms when the user presses Exit on my file menu. I used to stick to modal forms and therefore the user could *not* select file/exit unless all forms were closed. Now I'd like to be a little more 'windows' like and allow multiple forms open at the same time, hence the modeless setting.
