Rajesh,
have a look at the following sample code :
Best wishes,
Neil
* -------------------------------------------
SET PROC TO testproc
*
* TestProc just contains the following lines
* FUNCTION whenclause
* RETURN goTestobject.WHEN()
* FUNCTION validclause
* RETURN goTestobject.VALID()
*
goTestobject = CREATEOBJECT('browsehandler')
BROWSE NORM VALID validclause() WHEN whenclause() NAME loWhatever
DEFINE CLASS browsehandler AS CUSTOM
NAME = "browsehandler"
PROCEDURE WHEN
WAIT WINDOW 'WHEN called - user wants to change rows'
RETURN .T. && return .F. if record doesn't pass test
ENDPROC
PROCEDURE VALID
WAIT WINDOW 'VALID called - record has changed'
RETURN .T. && return .F. if record doesn't pass test
ENDPROC
ENDDEFINE
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement