topic-13712

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 01:41 PM

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

Saludos,

Adhemar C.

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 02:03 PM

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

ubiratanmga@gmail.com

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

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 02:11 PM

Hola amigo,
Prueba lo siguiente:

Code: Select all Collapse

REDEFINE RADIO nOp ID 101,102,103,104,105 OF oDlg ; 
   ON CHANGE(nOp,Inter)

Code: Select all Collapse

Function PongoFoco(nOp,Inter)
IF nOp=5
   Inter:SetFocus()
ENDIF
Return nil

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 02:39 PM

Gracias amigos

Probé de ambas formas y no funciona, se queda siempre en el RADIO 5
tengo que pulsar la tecla TAB para colocarlo en el GET.

necesito mas ayuda

Saludos

Adhemar

Saludos,

Adhemar C.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 03:09 PM

Hola.
Prueba la función asi:

Code: Select all Collapse

Function PongoFoco(nOp,Inter) 
IF nOp=5 
   nOp:oJump:=Inter
   Inter:SetFocus()
ENDIF 
Return nil

Espero te sirva.
Saludos.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 03:12 PM

Ahh...

Es porque no estás usando una variable...

Prueba definir el Radio asi:

Code: Select all Collapse

REDEFINE RADIO nOp VAR vOp ID 101,102,103,104,105 OF oDlg ; 
   ON CHANGE(vOp,Inter)

Supongo que ahi tiene que andar sin problemas.
Saludos, Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 04:16 PM

Hola,

en lugar de inter:setfocus(), prueba inter:PostMsg( WM_RBUTTONDOWN )

saludos

Marcelo

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 06:01 PM

prueba con:

__Keyboard(CHR(VK_TAB))

0

oControl:oJump := oGet1

donde ocontrol es el objeto donde estas

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 06:16 PM

Hola,

prueba tambien inter:PostMsg( WM_SETFOCUS ) , creo que es mas adecuado

saludos

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Como poner el Focus a un GET
Posted: Wed Nov 26, 2008 07:13 PM

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

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion