FiveTech Support Forums

Hola foro,
tengo un dialogo con 30 controles de todo tipo, y tengo un boton que abre un dialogo extra, cuando salga de ese boton quiero que el foco quede en el control que estaba hasta antes dar click al boton, como se cual era ese control?
salu2
pak-o

Hola, mira si este post te resuelve.

viewtopic.php?f=6t=2745start=0hilit=que+control+tiene+el+foco

También puedes probar con:
nFocus = AScan( oDlg:aControls, { | o | o:lFocused } )

Saludos

&&&

francisco, ya habia probado el oDlg:aControls y me da el foco en el control actual no el anterior, probe con el ejemplo del link que me pones, probe de 2 formas diferentes y con ninguna me funciono, hice esto:

     REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ;
              ACTION SetFocus(aoBtn[3]:cargo) ;
              WHEN VAL(nPax) > 1 UPDATE
              aoBtn[3]:bGotFocus := {|oBtn,oCtlOld| oBtn:cargo:=oCtlOld,;
                                                    Ocupantes(@cNom2,@cPat2,@cMat2,;
                                                              @cNom3,@cPat3,@cMat3,;
                                                              @cNom4,@cPat4,@cMat4,VAL(nPax)) }

     REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ;
              ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,;
                                 @cNom3,@cPat3,@cMat3,;
                                 @cNom4,@cPat4,@cMat4,VAL(nPax)),;
                        SetFocus( aoBtn[3]:cargo )) ;
              WHEN VAL(nPax) > 1 UPDATE
              aoBtn[3]:bGotFocus := {|oBtn,oCtlOld| oBtn:cargo := oCtlOld }

alguna otra sugerencia?
gracias
pak-o

probando de esta otra manera y tampoco funciona...

Local nHandle:=0

REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ;
ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,;
@cNom3,@cPat3,@cMat3,;
@cNom4,@cPat4,@cMat4,VAL(nPax)),;
SetFocus(nHandle),;
nHandle:=0 ) ;
WHEN VAL(nPax) > 1 UPDATE
aoBtn[3]:bGotFocus := {|oBtn,oOld| nHandle:=oOld}

dentro de la funcion Ocupantes abro un dialogo para captura de informacion
algo mas????

pak-o

Francisco,

Prueba a hacerlo asi:

aoBtn[3]:oJump := oControlQueTeniaElFoco

Antonio, probando asi:

tratando de poner el foco directamente en un objeto, no funciona
REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ;
ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,;
@cNom3,@cPat3,@cMat3,;
@cNom4,@cPat4,@cMat4,VAL(nPax)),;
aoBtn[3]:oJump := aoObjetos[5] )

y con el Handle tampoco
REDEFINE BUTTONBMP aoBtn[3] ID 402 OF oDls BITMAP "MONITOS" TEXTRIGHT ;
ACTION ( Ocupantes(@cNom2,@cPat2,@cMat2,;
@cNom3,@cPat3,@cMat3,;
@cNom4,@cPat4,@cMat4,VAL(nPax)),;
aoBtn[3]:oJump := nHandle )
aoBtn[3]:bGotFocus := {|oBtn,oOld| nHandle:=oOld}

el foco se sigue quedando en el boton

saludos
pak-o

Antonio,

probando asi:
aoBtn[3]:oJump := aoObjetos[5] el foco se queda en el boton, pero si presiono TAB me devuelve al control que tenia el foco anteriormente

probando asi:
aoBtn[3]:oJump := nHandle el foco se queda en el boton, pero si presiono TAB manda este error:
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: HWND
Called from: => HWND(0)
Called from: .\source\classes\CONTROL.PRG => TBUTTONBMP:FORWHEN(802)
Called from: .\source\classes\CONTROL.PRG => TBUTTONBMP:FWLOSTFOCUS(928)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1468)
Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT(189)
Called from: .\source\classes\WINDOW.PRG => _FWH(3409)
Called from: => DIALOGBOX(0)

saludos
pak-o

Prueba asi:

aoBtn[3]:oJump := oWndFromHwnd( nHandle )

Antonio,
probando, se queda el foco en el boton,,,
ya tambien hice todas las pruebas con y sin el tabstop cambiandolo desde el recurso y no funciona.
probe quitando el control buttonbmp y usando setkey(VK_FX,{||mifuncion}) y si funciona bien, pero la verdad se me vas estetico y presentable con un boton, sino tengo solucion pues usare setkey
gracias
pak-o

Francisco Horta,

Me alegro que mi solucion te haya ayudado. Muchas gracias por mencionarlo y por el feedback. Seguiremos ayudando en todo lo posible.

Bye

hmpaquito,
de nada, de hecho el timer lo deje como una ultima opcion, ya que en ese dialgo y otros utilizo timers para actualizaciones, y si funciona, pero el setkey es mas comodo unicamente poniendo una validacion dentro de mi funcion y va bien
saludos
pak-o