Paul, The simple answer is you can't really as focus will onl;y pass to the calling program once the firm itself has been destroyed unfortunately and the object reference disappears after the form is closed but BEFORE the next line of code.
I think I'd do the following: 1. Create a custom object called some derivative of the form object e.g oForm_Return_Object from within the form (within the init() function or even the unload() function which is JUST before the form object is released) 2. Create the return value as a property of the Return Object (oObj.Addproperty(<<cname>>, <<,vValue>>) in the Unload() event. 3. In your program flow, the form instance will then be released when you close the form (release()) in the normal way and control returned to your mainline program. You can examine the oForm_Return_Object and extracting the return value before releasing/destroying it. Hope this helps. Dave Crozier The secret to staying young is to live honestly, eat slowly, and to lie about your age -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Paul Newton Sent: 02 November 2006 14:43 To: [email protected] Subject: Re: Return value from form created in code Dave Tx for the reply. I have been playing around with your code for a few minutes and have two questions. 1. How would you modify the code to make the form modal ? 2. Why is the "Close" button invisible until I grab and move the form with the mouse ? I have tried putting btnClose.Visible = .T. in various places and am getting some weird results (like the form background not showing) TIA Dave Crozier wrote: > Paul, > Mistake in your coding in that you don’t pass the "init() parameter" > as a string > > Also you can use non modal forms to do the same thing - just as an > aside - see below! > > * Returning data back from a non modal form > * > ? Create_Form("Hello") > > *********** > * Create the Form and return Back Values > * > Procedure Create_Form(pcVar) > Local o > Local lnRetVal > > o = CREATEOBJECT("MyForm", pcVar) > o.Show(2) > > Do While .t. > DoEvents > Wait Window Nowait Noclear o.nStatus > If o.nStatus=-1 > lnRetval=o.cRetvar > Release o > exit > Endif > Enddo > * > Return lnRetVal > > > ************ > * Form Class > * > DEFINE CLASS MyForm AS Form > Add Object btnClose as CommandButton > > cRetVar = 0 > nStatus=0 > > PROCEDURE Init() > PARAMETERS tcRetVar > This.btnClose.Caption="Close" > =BindEvent(This.btnClose,"Click",This, > "SomeProcThatSetsTheReturnValue") > > THIS.cRetVar = tcRetVar > ENDPROC > > PROCEDURE SomeProcThatSetsTheReturnValue > This.cRetVar="Hello Modified" > STORE -1 TO THISFORM.nStatus > ENDPROC > * > ENDDEFINE > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
