Clipper/FiveWin - On Change

Hola amigos, tengo un problema con la clausula On Change del Get, cual es la sentencia que debo de utilizar para pasar como parametro el valor del GET ya que cuando lo hago en la funcion no me pinta el valor.

@ 1.4,12 GET oGet Var cGet OF oDlg;
Font oFont ;
ON CHANGE ( BuscaConst( cGet,oGet ) ) ;
SIZE 35,09

STATIC FUNCTION BuscaConst( cGet, oGet )

* Ninguno de estos valores se pinta en el msginfo

Msginfo( "oGet:cText : " + oGet:cText )
Msginfo( "oGet:VarGet() : " + oGet:VarGet() )
Msginfo( "cGet : " + cGet )

RETURN

Amigo yo lo haria de la siguiente manera

@ 1.4,12 GET oGet Var cGet OF oDlg;
Font oFont ;
VALID ( BuscaConst( cGet,oGet ) ,.T.) ;
SIZE 35,09

FUNCTION BuscaConst( cGet, oGet )
Msginfo(cGet)

RETURN nil

Gracias amigo, pero investigando encontre la solucion, al parecer en la opcion On change se pasa un parametro propio del FW nKey, la funcion ahora tomaria la siguiente forma:

@ 1.4,12 GET oGet Var cGet OF oDlg;
Font oFont ;
ON CHANGE ( BuscaConst( nKey, oGet ) ) ;
SIZE 35,09

STATIC FUNCTION BuscaConst( nKey, oGet )
Local cCadena

cCadena := Upper( Alltrim(oGet:cText) + Chr( nKey ) )

MsgInfo( cCadena )

Return (NIL)

Y asi si se obtiene lo que se desea....

Una pequeña contribucion de un principiante en FW.

Salu2