Forzar Foco en Get

Forzar Foco en Get

Postby MarioG » Fri Aug 25, 2006 2:20 pm

Hola gente:

Tengo un dialog, desde codigo, con un combo y un get. El foco inicilal lo tiene el Como. Bajo cierta condición quiero que lo tenga el Get. Para ello hago

desde el ON INIT del Dialog hago:
if( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus() ), )

Pero el foco sigue apareciendo en el Combo. que está mal?
gracias
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Postby manuramos » Fri Aug 25, 2006 2:50 pm

Intenta:

PostMessage(aO[_Get1]:hWnd,FM_CHANGEFOCUS)

Un saludo.
Nos Gusta Programar
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby MarioG » Fri Aug 25, 2006 3:58 pm

Manuramos, Duro de roer... no "andó"
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

asi lo haría yo

Postby fleal » Fri Aug 25, 2006 4:10 pm

Mario,

if( Empty( oSelf:cUser ), aO[_Get1]:SetFocus() , .T. )


Si lo anterior no funciona, usamos la fuerza bruta.
Deshabilito el combo al entrar, asi el foco no tiene más opción que irse al siguiente control.

if( !Empty( oSelf:cUser ), ( aO[_Cmb]:disable(), aO[_Get1]:SetFocus() ), )
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby Antonio Linares » Fri Aug 25, 2006 4:47 pm

Mario,

Desde la claúsula ON INIT tienes que devolver .f. para que Windows acepte dar el foco a otro control:

... ON INIT ;
if( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus(), .f. ), )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42127
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby MarioG » Mon Aug 28, 2006 12:03 pm

Antonio; muchas gracias!.
Tendría que haberlo preguntado hace mucho :-)... ya no recuerdo desde hace cuanto que lo intento y me resignaba a dejarlo sin solución.
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 63 guests