Hinding the Invisible Forms Message

[ConvertFromOldNGs]

by Torrie Moore >> Sat, 20 Nov 1999 2:21:39 GMT

Hi

Does anyone know how to suppress the message that says that the application has invisible forms remaining?

Torrie Moore { Mr! }

[ConvertFromOldNGs]

by Eric Peachey >> Thu, 25 Nov 1999 7:42:06 GMT

Does anyone know how to suppress the message that says that the application has invisible forms remaining?

I suppose you could make sure you've got rid of all your forms before your app quits by calling a method that does something like the one below. Not really answered your question though. You might not be able to unload all the forms if the queryUnload form event prevents it. The original piece of code I cobbled this from checked to see if it unloaded the form successfully and quitted if it didn't.

zapForms() updating;
vars
form : Form;
int : Integer;begin


int := app.formsCount;
while int >= 1 do
form := app.forms(int);
form.unloadForm;
int := int - 1;
endwhile;
end;

Torrie Moore { Mr! }

So now we know - didn't know if Torrie was a male or female name.

Merry Christmas

Eric in Dunedin

[ConvertFromOldNGs]

by Andrei Rusakou >> Fri, 10 Dec 1999 4:08:47 GMT

Hi Torrie,
I had the same problem before and here's the answer from Jade support:


The behaviour you were experiencing is as a result of the order of processing of the call of the destructor versus the check for only invisible forms left. I will open an NFS suggesting it would be good to delay this check until the deletion of all controls on the form etc has completed. In the interim, I have found the following work-around for this problem. In the windowCreated method of the control immediately after creating the form if you do a setFormParent to the controls form then when the controls form is unloaded this extra form is also unloaded. eg:

windowCreated(cntrl: Control input; persistCntrl: Control) updating;

vars
begin

inheritMethod(cntrl, persistCntrl);
create myPopupMenuForm;
myPopupMenuForm.setFormParent(self.form);
end;


It's actually a hack, but it works...

Regards,
Andrei