Article ID: 156343
Article Last Modified on 10/15/2003
Thisformset.ActiveForm.ActiveControl.<property or method>This works properly in all versions of Visual FoxPro.
* Start of code example
*
PUBLIC oFormset
oFormset = CREATEOBJECT('formset')
oFormset.ADDOBJECT('form1','frm')
oFormset.form1.VISIBLE=.T.
oFormset.SHOW()
DEFINE CLASS frm AS FORM
CAPTION = "Click on Form to Demonstrate Error"
ADD OBJECT text1 AS TEXTBOX WITH ;
TOP = 100, ;
LEFT = 120
PROCEDURE CLICK
* This will not generate an error in VFP 3.0 or 3.0b
WAIT WINDOW THISFORMSET.ACTIVECONTROL.NAME TIMEOUT 3
ENDPROC
ENDDEFINE
*
* End of code example
PROCEDURE CLICK
* This will not generate an error in VFP 3.0, 3.0b, or 5.0
WAIT WINDOW THISFORMSET.ACTIVEFORM.ACTIVECONTROL.NAME TIMEOUT 3
ENDPROC
Keywords: KB156343