I have a modeless form running. Then I click on another form (mMain)
that was opened previously and the modeless form goes to the
background. The question is, how do I release that modeless form now?
Is there no way to do it?

I tried this:

for nCount = 1 to _Screen.FormCount
if upper(alltrim(_Screen.Forms(nCount).Name)) <> "MMAIN"
_Screen.Forms(nCount).release()
endif
endfor

For some reason, I get this error "FORMS is not an object" (VFP 6). I
can however run the activate() method, but not the release() method. I
want to release this modeless form very much ...

David

The _screen.Forms collection loop is a good way I think.
If there is a Null reference among them, you can use TYPE()

....

Or try the Name clause of the Do Form command and store
the references in properties of a persistent parent form or "form
manager" object
DO FORM customers.scx NAME goApp.oCustomers
&& and later
goApp.oCustomers.Release()


hth
-Stefan

"David A. Caruso" <caruso (AT) efn (DOT) org> schrieb

caruso (AT) efn (DOT) org (David A. Caruso) wrote:

You are violating a principle here. I do not know that it has a
name, but the principle is that when you find something, you find it
in the last place you look for it. This is so, because once you find
it, you are supposed to stop looking for it. <G>

The problem is that the act of releasing the form changes the
value of _screen.formcount. AFAIK, loop control values are evaluated
for the loop only when it starts. Say you have three forms, and the
second is the one. After releasing that, there is no form three, yet
there will be a third iteration. Instead, try something like:

formindex=1
do while formindex<=_screen.formcount
if upper(alltrim(_screen.forms(formindex).Name))<>"MM AIN"
^^
I think this should be "=".
_screen.forms(formindex).release()
exit
endif
formindex=formindex+1
enddo

Sincerely,

Gene Wirchenko

Computerese Irregular Verb Conjugation:
I have preferences.
You have biases.
He/She has prejudices.

On Sun, 01 Aug 2004 22:18:15 -0700, Gene Wirchenko <genew (AT) mail (DOT) ocis.net>
wrote:

Gene, I think you hit it bang on, but I think the simplest way to deal with
it is for him to change the line:

For nCount = 1 to _Screen.FormCount

to be

For nCount = _Screen.FormCount to 1 step -1

Alan

My real address is alan at sprint dot ca
(with a 'p' on 'alan' making it 'alanp',
and no spaces). I'm sick of email spam.

lemmebe (AT) frednwilma (DOT) com wrote:

Sure, but you will iterate through all of them. What if there is
only one? I prefer to quit looking.

[snipped previous]

Sincerely,

Gene Wirchenko

Computerese Irregular Verb Conjugation:
I have preferences.
You have biases.
He/She has prejudices.

On Mon, 02 Aug 2004 20:15:14 -0700, Gene Wirchenko <genew (AT) mail (DOT) ocis.net>
wrote:

I think I may have missed something. I thought, from his original post, that
the point was to release all windows _except_ "MMAIN".

(His original posted code)
If so, don't you have to iterate through them all?

If that was not the point of the exercise, then yes, mea culpa.

Alan

My real address is alan at sprint dot ca
(with a 'p' on 'alan' making it 'alanp',
and no spaces). I'm sick of email spam.

lemmebe (AT) frednwilma (DOT) com wrote:

Ah, no. He said:
The question is, how do I release that modeless form now?

....but his code had that <>.

Yes, you would.

Maybe, he was thinking that he might not know the name and he
only has the one form (MMAIN) besides the modeless form?

[snip]

Sincerely,

Gene Wirchenko

Computerese Irregular Verb Conjugation:
I have preferences.
You have biases.
He/She has prejudices.