FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour como saber el objeto oGet Activo sin pasarle como parametro
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
como saber el objeto oGet Activo sin pasarle como parametro
Posted: Mon Feb 06, 2006 04:36 AM

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.

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM
como saber el objeto oGet Activo sin pasarle como parametro
Posted: Mon Feb 06, 2006 10:05 AM
@x,y Get oGet Var cVar Of oDlg Valid FunVal(Self)


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

Return .T.

:-)
Saludos/regards

RenOmaS



skype: americo.balboa
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
como saber el objeto oGet Activo sin pasarle como parametro
Posted: Mon Feb 06, 2006 03:18 PM
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
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

Continue the discussion