Como poner el Focus a un GET
Como poner el Focus a un GET
Hola amigos
Como hago para poner el focus en un GET cuando elijo la opcion en un RADIO Ej:
FUNCTION RepLlama(mTot)
Local oFont, oBtn,oGet
private nOp:= 1, oBmp, oTmr, oTmr1, Inter:= nTot:= nSw:= nSw1:= 0,oDlg,fDes,fHas
fDes:=(FecPro-Day(FecPro))+1
fHas:=FecPro
DEFINE DIALOG oDlg RESOURCE "LLAMADAS" Title 'Llamadas Realizadas del:'
REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg
REDEFINE GET Inter ID 106 OF oDlg UPDATE PICTURE '@z ####' WHEN nOp=5
REDEFINE DTPICKER fDes ID 107 OF oDlg UPDATE WHEN nOp=5
REDEFINE DTPICKER fHas ID 108 OF oDlg UPDATE WHEN nOp=5
REDEFINE METER oTmr VAR nSw ID 109 OF oDlg
REDEFINE BITMAP oBmp ID 112 OF oDlg RESOURCE "B-Imprime1" ADJUST
oTmr1:=TTimer():New( 700,{|| nSw1++ ,;
iif( nSw1 == 0, oBmp:SetBMP( "B-Imprime2" ), ), ;
iif( nSw1 == 1, ( oBmp:SetBMP( "B-Imprime1" ), nSw1:= -1 ), ) } )
oTmr1:Activate()
REDEFINE BUTTON oBtn ID 110 OF oDlg;
ACTION ( GeneraLST(nOp,mTot),oDlg:End() )
REDEFINE BUTTON oBtn ID 111 OF oDlg;
ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTER
oTmr1:End()
Return Nil
En este caso cuando en nOp sea 5
Gracias por su ayuda
Saludos,
Adhemar
Como hago para poner el focus en un GET cuando elijo la opcion en un RADIO Ej:
FUNCTION RepLlama(mTot)
Local oFont, oBtn,oGet
private nOp:= 1, oBmp, oTmr, oTmr1, Inter:= nTot:= nSw:= nSw1:= 0,oDlg,fDes,fHas
fDes:=(FecPro-Day(FecPro))+1
fHas:=FecPro
DEFINE DIALOG oDlg RESOURCE "LLAMADAS" Title 'Llamadas Realizadas del:'
REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg
REDEFINE GET Inter ID 106 OF oDlg UPDATE PICTURE '@z ####' WHEN nOp=5
REDEFINE DTPICKER fDes ID 107 OF oDlg UPDATE WHEN nOp=5
REDEFINE DTPICKER fHas ID 108 OF oDlg UPDATE WHEN nOp=5
REDEFINE METER oTmr VAR nSw ID 109 OF oDlg
REDEFINE BITMAP oBmp ID 112 OF oDlg RESOURCE "B-Imprime1" ADJUST
oTmr1:=TTimer():New( 700,{|| nSw1++ ,;
iif( nSw1 == 0, oBmp:SetBMP( "B-Imprime2" ), ), ;
iif( nSw1 == 1, ( oBmp:SetBMP( "B-Imprime1" ), nSw1:= -1 ), ) } )
oTmr1:Activate()
REDEFINE BUTTON oBtn ID 110 OF oDlg;
ACTION ( GeneraLST(nOp,mTot),oDlg:End() )
REDEFINE BUTTON oBtn ID 111 OF oDlg;
ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTER
oTmr1:End()
Return Nil
En este caso cuando en nOp sea 5
Gracias por su ayuda
Saludos,
Adhemar
FUNCTION RepLlama(mTot)
Local oFont, oBtn,oGet
private nOp:= 1, oBmp, oTmr, oTmr1, Inter:= nTot:= nSw:= nSw1:= 0,oDlg,fDes,fHas
fDes:=(FecPro-Day(FecPro))+1
fHas:=FecPro
DEFINE DIALOG oDlg RESOURCE "LLAMADAS" Title 'Llamadas Realizadas del:'
REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg ;
on change(if(nop=5,inter:setfocus(),))
//supondo que inter seria o objeto do get
REDEFINE GET Inter ID 106 OF oDlg UPDATE PICTURE '@z ####' WHEN nOp=5
REDEFINE DTPICKER fDes ID 107 OF oDlg UPDATE WHEN nOp=5
REDEFINE DTPICKER fHas ID 108 OF oDlg UPDATE WHEN nOp=5
REDEFINE METER oTmr VAR nSw ID 109 OF oDlg
REDEFINE BITMAP oBmp ID 112 OF oDlg RESOURCE "B-Imprime1" ADJUST
oTmr1:=TTimer():New( 700,{|| nSw1++ ,;
iif( nSw1 == 0, oBmp:SetBMP( "B-Imprime2" ), ), ;
iif( nSw1 == 1, ( oBmp:SetBMP( "B-Imprime1" ), nSw1:= -1 ), ) } )
oTmr1:Activate()
REDEFINE BUTTON oBtn ID 110 OF oDlg;
ACTION ( GeneraLST(nOp,mTot),oDlg:End() )
REDEFINE BUTTON oBtn ID 111 OF oDlg;
ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTER
oTmr1:End()
Return Nil
Local oFont, oBtn,oGet
private nOp:= 1, oBmp, oTmr, oTmr1, Inter:= nTot:= nSw:= nSw1:= 0,oDlg,fDes,fHas
fDes:=(FecPro-Day(FecPro))+1
fHas:=FecPro
DEFINE DIALOG oDlg RESOURCE "LLAMADAS" Title 'Llamadas Realizadas del:'
REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg ;
on change(if(nop=5,inter:setfocus(),))
//supondo que inter seria o objeto do get
REDEFINE GET Inter ID 106 OF oDlg UPDATE PICTURE '@z ####' WHEN nOp=5
REDEFINE DTPICKER fDes ID 107 OF oDlg UPDATE WHEN nOp=5
REDEFINE DTPICKER fHas ID 108 OF oDlg UPDATE WHEN nOp=5
REDEFINE METER oTmr VAR nSw ID 109 OF oDlg
REDEFINE BITMAP oBmp ID 112 OF oDlg RESOURCE "B-Imprime1" ADJUST
oTmr1:=TTimer():New( 700,{|| nSw1++ ,;
iif( nSw1 == 0, oBmp:SetBMP( "B-Imprime2" ), ), ;
iif( nSw1 == 1, ( oBmp:SetBMP( "B-Imprime1" ), nSw1:= -1 ), ) } )
oTmr1:Activate()
REDEFINE BUTTON oBtn ID 110 OF oDlg;
ACTION ( GeneraLST(nOp,mTot),oDlg:End() )
REDEFINE BUTTON oBtn ID 111 OF oDlg;
ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTER
oTmr1:End()
Return Nil
- jrestojeda
- Posts: 543
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Hola amigo,
Prueba lo siguiente:
Es lo mismo que postea SGS pero llamando una función que lo hace, es basicamente lo mismo. Cualquiera de las dos opciones debería funcionar sin problemas.
Saludos, desde Argentina, Esteban.
Prueba lo siguiente:
Code: Select all
REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg ;
ON CHANGE(nOp,Inter)
Code: Select all
Function PongoFoco(nOp,Inter)
IF nOp=5
Inter:SetFocus()
ENDIF
Return nil
Saludos, desde Argentina, Esteban.
- jrestojeda
- Posts: 543
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Hola.
Prueba la función asi:
Espero te sirva.
Saludos.
Prueba la función asi:
Code: Select all
Function PongoFoco(nOp,Inter)
IF nOp=5
nOp:oJump:=Inter
Inter:SetFocus()
ENDIF
Return nil
Saludos.
- jrestojeda
- Posts: 543
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Ahh...
Es porque no estás usando una variable...
Prueba definir el Radio asi:
Supongo que ahi tiene que andar sin problemas.
Saludos, Esteban.
Es porque no estás usando una variable...
Prueba definir el Radio asi:
Code: Select all
REDEFINE RADIO nOp VAR vOp ID 101,102,103,104,105 OF oDlg ;
ON CHANGE(vOp,Inter)
Saludos, Esteban.
-
- Posts: 1033
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
Re: Como poner el Focus a un GET
Hola,
en lugar de inter:setfocus(), prueba inter:PostMsg( WM_RBUTTONDOWN )
saludos
Marcelo
en lugar de inter:setfocus(), prueba inter:PostMsg( WM_RBUTTONDOWN )
saludos
Marcelo
-
- Posts: 1033
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
Re: Como poner el Focus a un GET
Hola,
prueba tambien inter:PostMsg( WM_SETFOCUS ) , creo que es mas adecuado
saludos
prueba tambien inter:PostMsg( WM_SETFOCUS ) , creo que es mas adecuado
saludos
Re: Como poner el Focus a un GET
Gracia a todos,
Son muy buenos.
Me funcionó con oGet:PostMsg(WM_RBUTTONDOWN), ya me estaba rindiendo.
Una nueva ayuda. Se puede hacer saltar en DTPICKER del DIA al MES y del MES al AÑO sin necesidad de pulsar el punto "." o la Slash "/" solo escribiendo 251108
Muchisimas gracias por su ayuda
Saludos
Adhemar
Son muy buenos.
Me funcionó con oGet:PostMsg(WM_RBUTTONDOWN), ya me estaba rindiendo.
Una nueva ayuda. Se puede hacer saltar en DTPICKER del DIA al MES y del MES al AÑO sin necesidad de pulsar el punto "." o la Slash "/" solo escribiendo 251108
Muchisimas gracias por su ayuda
Saludos
Adhemar