FiveTech Software tech support forums

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

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

Aqui en esta parte me lo volvia a cargar, asi que elimine el VK_ESCAPE y ya funciona.
oFecha:bKeydown := {|nKey| IF( nKey == VK_F2, oFecha:oBtn:PostMsg(WM_CLICK,13,0),)
// IF( nKey == VK_ESCAPE, oDlg:End(), ))}
gracias
pak.o

Gilbert,

Please try it this way:

oGet:OnKeyDown := { || oGet:cText := omGet:GetCol() }
omGet:OnKeyDown := { || oGet:PostMsg( WM_KEYDOWN ) }

Adhemar sos un genio!!! La solución que me pasaste la modifiqué así "oForm:bStart = { || ObjBrowse:PostMsg(WM_KEYDOWN, VK_F6,0) }" y salió excelente! Muchisimas, muchisimas, gracias, estuve un montón renegando con este tema, leia una ayuda de fivewin que me dieron ...

... que estoy modificando: ACTIVE DIALOG oForm CENTER ON INIT ( InitMulti(oForm), BarraEstado(), ObjBrowse:Refresh(), oForm:Refresh(), ObjBrowse:PostMsg(WM_KEYDOWN, VK_F6,0) ) Desde ya muchas gracias.

... reacción si pulsas enter, como si lo haces con el raton, fallan las dos. Y ya de paso he probado más combinaciones con sysrefresh() sin éxito. 2º PostMsg() ... ACTION (oGetArt:PostMsg(WM_SETFOCUS)) Esta segunda forma parece que va mas encaminada. El problema está en que una vez ejecutada (con ...

Se me ocurre:

1º SysRefresh()

... ACTION (oBtn:oJump:= oGetArt, SysRefresh() )

2º PostMsg()

... ACTION (oGetArt:PostMsg(WM_SETFOCUS))

A ver si alguno de estos funciona.

PD. Por todas estas cosas es por las que tengo todos los COMANDOS de Fwh redefinidos, para abstraer todos estos problemas.

Pete

You can also try this

hWnd := FindWnd(....the windo title )
if hWnd != nil
BringWindowToTop( hWnd )
hWnd:SetFocus()
hWnd:PostMsg(WM_CLOSE)
hWnd := NIL
SENDMESSAGE( hWnd, 16 )
ENDIF

HTH

Pete

I have been through some problems closing windows inside windows

The way i fixed it is at follows

IF WNDPMAIN # NIL
WNDPMAIN:SetFocus()
WNDPMAIN:PostMsg(WM_CLOSE)
WNDPMAIN := NIL
ENDIF

HTH

Richard

Gracias Daniel!!!!!

Nos has dado la pista que necesitábamos, solamente leyendo tu fuente creo que estamos en el camino de resolverlo.

Cualquier otra duda te consultaremos.

De nuevo gracias.!

... nKey | MsgInfo( nKey ) }    ACTIVATE DIALOG oDlg CENTERED ;             ON INIT ::PostMsg( WM_KEYDOWN, VK_F6, 0 )return nil 

... lo que probamos con Jorge es a traves del fuente y de esta prueba buscar alguna opcion que luego se usara un poco distinta, y probando el POSTMSG no logramos que ejecute la accion que tenemos parametrizada en la tecla F6. ¿Tenés alguna idea del uso del POSTMSG o como introducir desde el ...

Hola jmansur...

Por curiosidad, porque no simplemente llamas al proceso que se ejecuta con esa tecla?

... una tecla al mismo tiempo. Lo que hago es lo siguiente pero no logro que funcione. Alguna idea? ACTIVATE DIALOG oForm CENTER ON INIT ( oForm:POSTMSG(WM_KEYDOWN, K_F6,0) ) Saludosssssssssssssssssssssssssssssssssss