oForm = CREATEOBJECT("Form1") READ EVENTS && That line is AFTER return .f. of the form and Unload Event of the form. So CLEEAR EVENTS has no effects ************************************************** *-- Form: form1 (d:\works\traff\tte.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 10/14/05 10:41:01 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" PROCEDURE Init RETURN .f. ENDPROC PROCEDURE Unload WAIT WINDOW "Unload" NOWAIT CLEAR EVENTS ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************Chane it to:
oFOrm = CREATEOBJECT("Form1") ************************************************** *-- Form: form1 (d:\works\traff\tte.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 10/14/05 10:41:01 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" PROCEDURE Init ***** Do whaever you want to to IF some_condition RETURN .f. ENDIF READ EVENTS ENDPROC PROCEDURE Unload WAIT WINDOW "Unload" NOWAIT CLEAR EVENTS ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************