Page 1 of 1

ACTIVATE DIALOG y POSTMSG

PostPosted: Mon Feb 22, 2010 9:28 pm
by jmansur
Estimadoss.

Tengo un problema.

Luego que ACTIVO un Dialogo, el usuario puede presionar varias teclas que tienen asociadas algunas funcionalidades.

Intento ACTIVAR el dialogo y forzar 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

Re: ACTIVATE DIALOG y POSTMSG

PostPosted: Mon Feb 22, 2010 10:44 pm
by Daniel Garcia-Gil
Hola jmansur...

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

Re: ACTIVATE DIALOG y POSTMSG

PostPosted: Tue Feb 23, 2010 6:59 pm
by rbecares
Daniel:

Lo que ocurre es que esa tecla esta parametrizada y desde un mismo programa que utiliza el activate dialog llamamos distintos procesos, 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 fuente un "TECLAZO" ?

Gracias.

Re: ACTIVATE DIALOG y POSTMSG

PostPosted: Tue Feb 23, 2010 10:04 pm
by Daniel Garcia-Gil
Saludos...

es exactamente como lo hacen... este es un ejemplo funcional usando el mismo codigo, la falla puede estar en otro sitio


Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

    local oDlg

    DEFINE DIALOG oDlg TITLE "Testing..."

    oDlg:bKeyDown = {| nKey | MsgInfo( nKey ) }

    ACTIVATE DIALOG oDlg CENTERED ;
             ON INIT ::PostMsg( WM_KEYDOWN, VK_F6, 0 )

return nil
 

Re: ACTIVATE DIALOG y POSTMSG

PostPosted: Wed Feb 24, 2010 12:29 pm
by rbecares
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.!