FoxPro/Visual FoxPro - Referencia en una clase

He creado un formulario que devuelve un valor. En un principio usaba do form x to variable.
Ahora ese formulario lo he guardado como clase. Necesito tomar ese valor. He creado en la clase una propiedad para guardar el valor de retorno y poder acceder a el. Pero no se como guardar el valor de retorno que me da el formulario en esa propiedad o sea no se como hacer referencia a ella. La propiedad se llama lretorno.

El boton del form sale con

LPARAMETERS toBoton
thisform.lcNombreBoton = toBoton.value
---> ???.lretorno=thisform.lcnombreboton (aqui fallo en la referencia)
thisform.hide()

Agradecere toda indicacion.

Dario

this.lretorno=thisform.lcnombreboton

Suerte

Ernesto, ese tipo de referencia no funciona, no olvides que la propiedad es de la clase no del formulario. El formulario esta convertido en clase pero la propiedad esta creada sobre la clase.
Ya he probado this, thisparent, pero ninguno me guarda el valor en dicha propiedad.

Dario

no olvides que la propiedad es de la clase no del formulario.

y la herencia donde queda ? entonces donde esta la utilidad de crear clases . compañero yo asi lo manejo y funciona . ::-( o a lo mejor no te estoy entendiendo


Suerte

Una pregunta, esos formularios que tienes en una clase los usas para crear otros formularios basados en ella con
CREATE FORM miformulario AS tuclaseformulario

Es un formulario creado con creat form o sea normal no proviene de ninguna clase.
Lo usaba con do form xx to variable
De ahi utilizo el valor devuelto en la variable.
Decido hacer una clase con el, entonces lo "Guardo Como Clase"
Luego hago modi class opc, dentro de la clase creo una propiedad llamada nret.
Entonces lo que quiero es que "esa clase" me devuelva un valor como lo hace el formulario normalmente, por lo que al salir del formulario hago...
en el metodo boton_click del formulario
LPARAMETERS toBoton
thisform.lcNombreBoton = toBoton.value
*almacenar el valor en Nret de la clase
thisform.hide()

el valor es devuelto normalmente del unload con Return LcNombreboton
Lo que deseo es que el valor de toBoton.value se guarde el la propiedad "De la clase" para que luego de su activacion yo pueda hacer por ejemplo

*-----------------------------------------
FUNCTION opc
*-----------------------------------------
LPARAMETERS Mensaje, Botones, Titulo
LOCAL loOpc, lnRetorno
loOpc = NEWOBJECT("opc", "opc.vcx", "", Mensaje, Botones, Titulo)
loOpc.Show(1)
lnRetorno = loOpc.nRet
loOpc = Null
RETURN lnRetorno

Veras que hago referencia a ella del objeto LoOpc.
En sintesis no logro almacenar el valor en Nret.
Espero me entiendas.

Gracias