Hola Bruno,

Me es necesario cambiar un valor de un Caption del objeto

esto es lo que quiero hacer

// Creamos el Get para la Edicion
::oGetBrw := TEdit():Create( ::oBrow )
::oGetBrw:SetBounds( 24, 180, 46, 21 )
::oGetBrw:Caption := ""
::oGetBrw:TabOrder := 1
::oGetBrw:Visible := .F.
::oGetBrw:OnChange := { | oSender | ListadoOPC( oSender ) }


function ListadoOPC( oSender )

/*en este apartado este apartado estoy habridneo otro formulario el cual me desplegara varias opbiones
des pues de seleccionar una las pciones esta la cargare al Get que se contruyo*/

oSender:Caption := "Opcion 2"

/*
Cerramos la ventana de este formulario y regresamos el Onjeto tEdit y este ya ha borrado la informacion
*/

return nil

¿ Como le puedo hacer para que al momento de regresar a la clase Tedit este no me borre la informacion que le he enviado desde otro formulario?

Saludos cordiales
JL

perdon me equivoque como deberia de quedar la creacion de obgeto Edit es de la siguiente manera

// Creamos el Get para la Edicion
::oGetBrw := TEdit():Create( ::oBrow )
::oGetBrw:SetBounds( 24, 180, 46, 21 )
::oGetBrw:Caption := ""
::oGetBrw:TabOrder := 1
::oGetBrw:Visible := .F.
::oGetBrw:OnKeyDown := { | oSender, nkey | iif( nKey == 43, ListadoOPC( oSender ), nKey ) }
solo cuado cuando se pulse la tecla + esta aparecera el otro formulario que te comentaba.

pero aun asi no me deja el valor que le mando cuando salgo de formulario que hago llamar desde esta clase

Saludos cordiales
Jose Luis AS
Sidem, Mexico

José Luis,

Depende de lo que haga ListadoOPC, si esta función devuelve el valor que quieres asignar al edit haz:

::oGetBrw:OnKeyDown := { | oSender, nkey | iif( nKey == 43, ::oGetBrw:Caption := ListadoOPC( oSender ), Nil ) }

En cambio si ListadoOPC no devuelve nada, sino que simplemente lo quieres cambiar desde la propia función, pásale como parámetro el propio edit:

::oGetBrw:OnKeyDown := { | oSender, nkey | iif( nKey == 43, ::oGetBrw:Caption := ListadoOPC( ::oGetBrw ), Nil ) }

Y dentro de ListadoOPC, cuando ya tengas el valor a asignar:

ListadoOPC( oEdit )

local uValue

uValue := ...
...
oEdit:Caption := uValue

Si ListadoOPC sólo devuelve un carácter vas bien, pero te falta asignarlo a nKey:

::oGetBrw:OnKeyDown := { | oSender, nkey | nKey := iif( nKey == 43, ListadoOPC( oSender ), nKey ) }

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com