VFP 6.0: Wait for form's release

[Kimed]

Hi,

I have a form with a button that evokes another form and after that one is closed, must refresh itself. Simply making the code like

DO FORM FormName
thisform.Refresh

doesn't work, or, more precisely, Refresh is called immediately after opening the child form, not after it ends its work. I set child form's WindowMode to 1(Modal), but it didn't help; then I tried to call for it with TO clause and a dummy return variable, but I got the error message saying that it is only allowed for forms with WindowMode=Modal... even though it *is* set to Modal. What am I doing wrong? Thanks.

 

[Mike Lewis]

As far as I know, there's no such property as WindowMode. To make a form modal, you set its WindowType to 1. You must do that before you invoke the form (in other words at design time).

If you do that, your main form should refresh as soon as the modal form closes.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro tips, advice, training, consultancy
Custom software for your business

 

[Kimed]

Sorry, my mistake. It's WindowType, of course, but still, it's set to Modal at design time, and still it doesn't make the calling form wait. Which is the source of confusion to me.

 

[Mike Lewis]

Is it by any chance also a top-level form (ShowWindow set to 2)? If so, that would explain what you are seeing; top-level forms are never modal.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro tips, advice, training, consultancy
Custom software for your business

 

[Kimed]

That was it, thank you.

 

[SnyAc]

Pass the calling form's object reference to the child form and have the child form call the refresh in it's release method.

DO FORM childform WITH THISFORM 

*child form's init method
LPARAMETERS po_CallingFormObj
this.addproperty('loCallingFormObj', NULL)
if pcount()#0
  this.loCallingFormObj = po_CallingFormObj
endif 

*child form's release method
if !ISNULL(this.loCallingFormObj)
  this.loCallingFormObj.refresh()
endif

Andy Snyder
SnyAc Software Services

http://www.snysoft.com

Hyperware Inc. a division of AmTech Software

http://www.hyperwareinc.com