Procedure Error Lparameters lxPara1, lxPara2, lxPara3 * Wait Window PROGRAM() Endproc Procedure ErrorHandler Lparameters lxPara1, lxPara2, lxPara3 Wait Window PROGRAM() Endproc>*
>Public oHandler >oHandler=Newobject("myhandler") >Do (_Browser) >Bindevent(_Screen,"Resize",oHandler,"myresize") > >* uncomment te line below to check if the 'ErrorHandler' >* is correctly assigned to the error-method >* >* oHandler.Error() > > >Define Class myhandler As Session > > Procedure Init >* IF _VFP.StartMode # 0 > Bindevent(This,"Error",This,"ErrorHandler") >* endif > Endproc > > Procedure myresize > If Isnull(_obrowser) Then > Unbindevent(This) > Else > _obrowser.Left = _Screen.Width - _obrowser.Width > ENDIF > > ERROR 12 > > Return > Endproc > >* uncomment the lines below to check the behaviour >* if the error-method was assigned corretly >* >* Procedure Error >* Lparameters lxPara1, lxPara2, lxPara3 >* Wait Window 'Error' >* Endproc > > Procedure ErrorHandler > Lparameters lxPara1, lxPara2, lxPara3 > Wait Window 'Error' > Endproc > >Enddefine