como saber el objeto oGet Activo sin pasarle como parametro

[wilsongamboa]

Buenas noches compañeros, espero me puedan ayudar

Desde un Get como este

@x,y Get oGet Var cVar Of oDlg Valid FunVal()


Function FunVal()
Local oGet := GetActive()

//aca me devuelve como que oGet fuera desconocido, es decir
//no se como hacer que me devuelva el objeto get SIN PASARLE COMO PARAMETRO

Return .T.

Espero me haya hecho entender , gracias x todo

Att.

[RenOmaS]

Code: Select all  Expand view  RUN

@x,y Get oGet Var cVar Of oDlg Valid FunVal(Self)


Function FunVal( oGet)
// oGet e o get chamador

Return .T.


[wilsongamboa]

gracias x responder
Ya halle la forma
bvalid del get envia como parametro self
era lo que yo queria ya que lo tengo dentro de un ciclo for next
asi
::aoGet[i] := TGet():New( nRow ,;
nCol ,;
FijaVariable(::aGet, i),;
::oDlg ,;
nWidth ,;
nHeight ,;
cPic ,;
FijaVarSinBloque(::aValid, i),;
,;
,;
::oFont ,;
design ,;
,;
lpixel ,;
::aMsg[i] ,;
lUpdat ,;
FijaVarSinBloque(::aWhen, i),;
lCenter ,;
lRight ,;
,;
lReadonly ,;
.f. ,;
.f. ,;
nHelpId ,;
lSpin ,;
SpnUp ,;
SpnDn ,;
,;
)


Y cuando le llamo le pongo
::aValid :={ {|oSe| FuncionValid(oSe:Value()) },......}

Si a alguien le sirve

Saludos
y Gracias