Re: dbcombo ( lostfocus no funciona ) NO RESUELTO

[Patricio Avalos Aguirre]

Estimados

Por que en los dbcombo no funciona
bGotfocus no deja abrir los combos
bLostFocus no hace nada

en el ejemplo dbctest.prg

Code: Select all  Expand view  RUN

REDEFINE DBCOMBO oState VAR cState ID ID_STATE OF oClient ;
      ALIAS "STATES" ;
      ITEMFIELD "CODE" ;
      LISTFIELD "NAME"

    oState:bLostfocus := { || cTmp := cState }
    oState:bgotfocus := { || cTmp := cState }
 

[karinha]

Intenta con:

XFOCUS( oState )

[Patricio Avalos Aguirre]

Hola

he solucionado el bGotfocus

Code: Select all  Expand view  RUN

    oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }
 

pero blostfocus no hace nada

Code: Select all  Expand view  RUN

   oState:bLostfocus := { || cTmp := cState}
 

[Patricio Avalos Aguirre]

No funciona, estuve como 1 hora buscando el error, y era el

oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }

cuando valida algo y este devuelve .f. queda en un bucle indefinidamente devolviendo .f., solo hay que cerrar el programa

le saque

//oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }

funciona bien ahora

[Patricio Avalos Aguirre]

Hola

Aqui dejo posible correcion de lostfocus del dbcombo

Code: Select all  Expand view  RUN

METHOD LostFocus() CLASS TDBCombo

   local nAt := ::SendMsg( CB_GETCURSEL )

   if nAt != CB_ERR
      ::nAt = nAt + 1
      Eval( ::bSetGet, ::aItems[ ::nAt ] )
   else
      Eval( ::bSetGet, GetWindowText( ::hWnd ) )
   endif

//aqui se evalua el blostfocus
   if ! Empty( ::bLostFocus )
      return Eval( ::bLostFocus, Self, ::hWnd )
   endif
//fin modificacion

   ::cSearchKey:=""

return nil