************************************************** *-- Form: test (c:\test\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 07/30/02 10:59:02 AM * DEFINE CLASS test AS form DoCreate = .T. Caption = "Test" Name = "TEST" alreadyloaded = .F. &&Custom property used for preventing other instances from loading PROCEDURE Init If ThisForm.Alreadyloaded Then Return .F. EndIF ENDPROC PROCEDURE Load Local lcThisFormName lcThisFormName = ThisForm.Name If Type(lcThisFormName)=[O] And Type(lcThisFormName+[.BaseClass])=[C] Then If Lower(Evaluate(lcThisFormName+[.BaseClass])) == [form] Then ThisForm.AlreadyLoaded=.T. Return EndIf EndIf Public &lcThisFormName &lcThisFormName = ThisForm ** Load cursors etc. ENDPROC PROCEDURE Unload If ThisForm.AlreadyLoaded Then Return EndIf ** Clean-up code ENDPROC ENDDEFINE * *-- EndDefine: test **************************************************HTH
Make solutions, not programs!