Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Click en RBBTN (SOLUCIONADO)
Posted: Sat Aug 20, 2011 05:22 PM

Como hago para simular enviar un click en un RBBTN desde un XBrowse?
tengo asi mi codigo:

define WM_CLICK 245

REDEFINE RBBTN aoBtn[3] ID 107 OF oDlg BITMAP oApp:cDirBmps+"Add.bmp" ;
ACTION ( IF(MsgYesNo("Esta Seguro de Agregar un Movimiento ?","Aviso"),;
AgregarMovto("A",STR(oQry3:FieldGet("idfolio")),oBrw,@oQry3,cTmpDB),),;
oBrw:SetFocus() ) ;
PROMPT "" ROUND BORDER

luego tengo un xbrowse y desde ahi lo quiero enviar, pero no funciona
oBrw:bKeydown := {|nKey| IF(nKey=VK_INSERT,;
aoBtn[3]:PostMsg(WM_CLICK,13,0),)}

desde un get con un boton si funciona...
oGet:bKeydown := {|nKey| IF( nKey == VK_F2, oGet:oBtn:PostMsg(WM_CLICK,13,0)
saludos
pak.o

____________________

Paco

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Click en RBBTN
Posted: Sat Aug 20, 2011 07:58 PM

Hola

prueba con hacer un eval de la accion del boton

Eval( oBtn:bAction )

o usar el metodo click del botton

oBtn:Click()

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: Click en RBBTN (SOLUCIONADO)
Posted: Mon Aug 22, 2011 03:22 PM

Gracias Daniel
tan simple como usar el click()
pak.o

Francisco Horta wrote:Como hago para simular enviar un click en un RBBTN desde un XBrowse?
tengo asi mi codigo:

#define WM_CLICK 245

REDEFINE RBBTN aoBtn[3] ID 107 OF oDlg BITMAP oApp:cDirBmps+"Add.bmp" ;
ACTION ( IF(MsgYesNo("Esta Seguro de Agregar un Movimiento ?","Aviso"),;
AgregarMovto("A",STR(oQry3:FieldGet("idfolio")),oBrw,@oQry3,cTmpDB),),;
oBrw:SetFocus() ) ;
PROMPT "" ROUND BORDER

luego tengo un xbrowse y desde ahi lo quiero enviar, pero no funciona
oBrw:bKeydown := {|nKey| IF(nKey=VK_INSERT,;
aoBtn[3]:PostMsg(WM_CLICK,13,0),)}

desde un get con un boton si funciona...
oGet:bKeydown := {|nKey| IF( nKey == VK_F2, oGet:PostMsg(WM_CLICK,13,0)
saludos
pak.o

____________________

Paco

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Click en RBBTN (SOLUCIONADO)
Posted: Wed Aug 24, 2011 01:39 PM

Francisco;
Lo que Daniel sugiere que hagas para esto:

Code (fw): Select all Collapse

[code]oBrw:bKeydown := {|nKey| IF(nKey=VK_INSERT,;
aoBtn[3]:PostMsg(WM_CLICK,13,0),)}[/code]

es esto:

Code (fw): Select all Collapse

oBrw:bKeydown := {|nKey| IF(nKey=VK_INSERT,;
aoBtn[3]:oClick(),)}

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: Click en RBBTN (SOLUCIONADO)
Posted: Wed Aug 24, 2011 06:17 PM

Mario,
utilizando el click() me dio el resultado, son buenas opciones las 2
saludos
pak.o

____________________

Paco

FiveTech Support Forums

define WM_CLICK 245

Continue the discussion