topic-29930

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Foco en dialogo no modal
Posted: Wed Jan 07, 2015 02:42 PM

Compañeros, tengo el siguiente escenario, un dialogo con un get con un botón cuya acción es llamar a otro dialogo, este último es no modal. En él hay un get. El problema es que nunca hace foco en este get que se encuentra en el dialogo no modal. Adjunto imagen

Hay alguna manera de hacer foco en el get que se encuentra en el dialogo no modal ??? Muchas gracias

Saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Foco en dialogo no modal
Posted: Wed Jan 07, 2015 04:58 PM

Intenta asi:

Code (fw): Select all Collapse

   ACTIVATE DIA... ;
            ON INIT ( xFocus( oGet ) )


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. )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Foco en dialogo no modal
Posted: Tue Jan 13, 2015 11:49 AM

No se, pero eso lo hago muchas veces sin problemas. Intenta ponerle estilo WS_TABSTOP al Get. O, sino, en el ON INIT prueba oGet:Setfocus().

Un saludo.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Foco en dialogo no modal
Posted: Tue Jan 13, 2015 12:19 PM

Tente adicionar mais um recurso(ex: um botão escondido) acredito que é pelo da dialog ter apenas um RECURSO(get).

exemplo:

redefine get ...
redefine button hObjetos['BotaoAuxiliar'] ...

ACTIVATE DIA... ;
ON INIT ( hObjetos['BotaoAuxiliar']:Move( -200, -200 ) )

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Mlaynes

Posts: 1

Joined: Tue Jun 28, 2016 06:08 PM

Re: Foco en dialogo no modal
Posted: Tue Jun 28, 2016 06:12 PM

Ok Karina..

Se agradece la información de la librería (me funciona como XFOCUS y XSETFOCUS)

FiveTech Support Forums

Continue the discussion