::obtns:= array(2)
...
REDEFINE BUTTON ::oBtns[1] ID 200 OF oDlg
REDEFINE BUTTON ::oBtns[2] ID 201 OF oDlg
ACTIVATE DIALOG oDlg CENTERED ON INIT (this:botones())
RETURN (NIL)
//------------------------------------------------------------------------------
METHOD botones() CLASS T
aEval(::oBtns, {|o| o:disabled()})
RETURN (NIL) Error description: Warning BASE/1004 Message not found: TBUTTON:DISABLEDQuitando la "d" 
o:disable()
Error description: Error BASE/1004 Class: 'NIL' has no exported method: DISABLE
Args:
[ 1] = USaludos !
A quien hereda la CLASS T
CLASS t
DATA nIdMascota
DATA nIdDiagnostico
DATA oCnx
DATA oGets
DATA vGets
DATA oBtns
METHOD NEW() CONSTRUCTOR
PROTECTED:
METHOD crear()
METHOD abm(aRespuesta)
METHOD inicializar(aRespuesta)
METHOD botones()
METHOD grabar()
METHOD browser()
END CLASSPuedes mostrar como creas el buttom, para q puedas heredar los methods dberias crearlo de esta forma
oBtn[nButon] := TButton:New( nRow, nCol, cCaption, oWnd, bAction, nWidth, nHeight, nHelpId, oFont, lDefault,;
lPixel, lDesign, cMsg, lUpdate, bWhen, bValid, lCancel,cVarName, lMultiline )
ó
oBtn[nButon]:= TButton:ReDefine( nId, bAction, oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid, cPrompt, lCancel )
METHOD Prueba() CLASS T
Local oSelf:= Self
::obtns:= array(2)
...
REDEFINE BUTTON ::oBtns[1] ID 200 OF oDlg
REDEFINE BUTTON ::oBtns[2] ID 201 OF oDlg
ACTIVATE DIALOG oDlg CENTERED ON INIT (oSelf:botones())
RETURN (NIL)
METHOD botones() CLASS T
aEval(::oBtns, {|o| o:disable()})
RETURN (NIL)