Hi all
My first real attempt at working with forms in code rather than with the
designer. Program skeleton looks like this and it works - but are there
better ways to do it ?
MyProg.PRG
lnRetVal = 0
o = CREATEOBJECT("MyForm", "lnRetVal")
o.WindowType = 1
o.Show()
RETURN lnRetVal
DEFINE CLASS MyForm AS Form
cRetVar = ""
PROCEDURE Init
PARAMETERS tcRetVar
THIS.cRetVar = tcRetVar
ENDPROC
PROCEDURE SomeProcThatSetsTheReturnValue
STORE 5 TO (THISFORM.cRetVar)
THISFORM.Release
ENDPROC
ENDDEFINE
_______________________________________________
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.
