LOCAL loForm AS FORM loForm = NEWOBJECT('MyForm') loForm.SHOW(1) DEFINE CLASS MyForm AS FORM ADD OBJECT MyTextBox AS MyTextBox ADD OBJECT MyButton AS MyButton WITH TOP = 30 ENDDEFINE DEFINE CLASS MyTextBox AS TEXTBOX VALUE = "" *!* Use valid instead of lostFocus PROCEDURE VALID DEBUGOUT PROGRAM() + " Value = " + THIS.VALUE IF EMPTY( THIS.VALUE ) RETURN 0 ENDIF ENDPROC *!* PROCEDURE LOSTFOCUS *!* DEBUGOUT PROGRAM() + " Value = " + THIS.VALUE *!* IF EMPTY( THIS.VALUE ) *!* NODEFAULT *!* ENDIF *!* ENDPROC ENDDEFINE DEFINE CLASS MyButton AS COMMANDBUTTON CAPTION = "\<OK" PROCEDURE CLICK DEBUGOUT PROGRAM() ENDPROC ENDDEFINE