>>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 >>