combobox y lostfocus

[goosfancito]

Hola.

No hay manera, si en un dialogo hay un combobox y un folder, no hay manera de que salte al folder,
ya probe utilziando el jump:

Code: Select all  Expand view

oCombobox[1]:ojump = oGet[2]
 

ya probe poniendolo en el VALID del Combobox y nada...

Que esta funcionando mal?
gracias.

[karinha]

Simples,

Code: Select all  Expand view

    REDEFINE COMBOBOX oCombo VAR XESTCIVIL PICTURE "@K!"     ;
             ITEMS cEstCivil                                 ;
             ID 31 OF oFld:aDialogs[ 4 ]                     ;
             UPDATE                                          ;
             COLORS CLR_HRED, CLR_HCYAN                      ;
             VALID   IF( GetASyncKey( VK_RETURN )     .OR.        ;
                         GetASyncKey( VK_DOWN   ),                ;
                       ( oCombo:oJump := oCbxSit,                 ;
                        xFocus( oCbxSit ), .T. ), .T. )

    oCombo:cToolTip := "<Click-Me> Para Selecionar o Estado Civil do Cliente"

    REDEFINE COMBOBOX oCbxSit VAR XATIVO PICTURE "@K!"            ;
             ITEMS cSituacao                                      ;
             ID 32 OF oFld:aDialogs[ 4 ]                          ;
             UPDATE                                               ;
             COLORS CLR_HRED, CLR_HCYAN                           ;
             VALID IF( GetASyncKey( VK_RETURN )     .OR.          ;
                       GetASyncKey( VK_DOWN   ),                  ;
                     ( oCbxSit:oJump := aGet[070],                ;
                       oFld:SetOption(5), oFld:SetFocus(),        ;
                       oFld:Refresh(), xFocus( aGet[70] ), .T. ), .T. )

    oCbxSit:cToolTip := ( "<Click-Me> Para Selecionar" )
 



[goosfancito]

Hola.

Ya probe de esa manera y no me funciona.

[karinha]

Aca funciona perfecto:

Code: Select all  Expand view

FUNCTION xFocus( oObj )
   xSetFocus( oObj )
   xSetFocus( oObj )
RETURN( .T. )
//-------------------------------------------------------------------------//
FUNCTION xSetFocus( oObj )
    LOCAL _oWnd := oObj:oWnd, _oTempo := ""
    DEFINE Timer _oTempo Interval 10 of _oWnd ;
           Action ( oObj:SetFocus(), _oTempo:End() )
    ACTIVATE Timer _oTempo
RETURN( .T. )
 



[carlos vargas]

verifica que el control en el rc tenfo la propiedad tabstop en true, sucede con resedit que por defecto la propiedad tabstop de los combobox y radoitems enta false

[goosfancito]

hola.

Lo tengo en tabstop al combobox PERO el folder no, puse en TRUE/YES al folder y ahora si toma el foco.

gracias.

[carlos vargas]

Sip, se me ha pasado eso tambiem, que el systab32 debe tener la propiedad tabstop en true tambien.
que bueno que ya has resuelto.

salu2