>SET STEP ON > >oForm = CREATEOBJECT("myForm") >oForm.Show() > >DEFINE CLASS MyForm AS Form > > PROCEDURE Show > > IF This.Height = 50 > ENDIF > > ENDPROC > > PROCEDURE Height_Assign > LPARAMETERS nHeight AS Integer > WAIT WINDOW "Height_Assign called" NOWAIT > ENDPROC > >ENDDEFINE >>
oForm = CREATEOBJECT("myForm") oForm.Show() DEFINE CLASS MyForm AS Form PROCEDURE Init this.AddProperty("nHeight",0) ENDPROC PROCEDURE Show IF This.Width == 50 ENDIF ENDPROC PROCEDURE nHeight_Assign LPARAMETERS nHeight AS Integer MESSAGEBOX("Height_Assign called") ENDPROC PROCEDURE Width_Assign LPARAMETERS nHeight AS Integer MESSAGEBOX("Width_Assign called") ENDPROC