>oFrm = CREATEOBJECT("cFormTest") >oFrm.Show() >READ EVENTS > >DEFINE CLASS cFormTest AS Form > >AUTOCENTER = .T. >HEIGHT = 100 >WIDTH = 300 > >ADD OBJECT txtTest1 AS TextBox WITH ; > HEIGHT = 20 ,; > LEFT = 6 ,; > TOP = 6 ,; > VISIBLE = .T. ,; > WIDTH = 50 > >ADD OBJECT txtTest2 AS ctxtbox WITH ; > HEIGHT = 20 ,; > LEFT = 6 ,; > TOP = 26 ,; > VISIBLE = .T. ,; > WIDTH = 50 > >ADD OBJECT cmdClose AS CommandButton WITH ; > CANCEL = .T. ,; > CAPTION = "Close" ,; > HEIGHT = 20 ,; > LEFT = 250 ,; > TOP = 70 ,; > VISIBLE = .T. ,; > WIDTH = 50 > >PROCEDURE INIT > BINDEVENT(ThisForm.txtTest1, "Valid", ThisForm, "ValidTest") > BINDEVENT(ThisForm.txtTest2, "Valid", ThisForm, "ValidTest") > BINDEVENT(ThisForm.cmdClose, "Click", ThisForm, "CloseMe") >ENDPROC > >PROCEDURE DESTROY > CLEAR EVENTS >ENDPROC > >PROCEDURE closeme > ThisForm.Release() >ENDPROC > >PROCEDURE validtest > AEVENTS(arEvent, 0) > WAIT WINDOW NOWAIT "In Form Valid for " ; > + arEvent(1).Name + "." + arEvent(2) >ENDPROC > >ENDDEFINE > >DEFINE CLASS ctxtbox AS TextBox > > PROCEDURE VALID > * Placing a simple comment here, allows BindEvent to see Event > ENDPROC > >ENDDEFINE >