Page 1 of 1

como saber el objeto oGet Activo sin pasarle como parametro

Posted: Mon Feb 06, 2006 4:36 am
by 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.

Posted: Mon Feb 06, 2006 10:05 am
by RenOmaS

Code: Select all

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


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

Return .T. 
:shock:

Posted: Mon Feb 06, 2006 3:18 pm
by 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 := TGet():New( nRow ,;
nCol ,;
FijaVariable(::aGet, i),;
::oDlg ,;
nWidth ,;
nHeight ,;
cPic ,;
FijaVarSinBloque(::aValid, i),;
,;
,;
::oFont ,;
design ,;
,;
lpixel ,;
::aMsg ,;
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