ACTIVATE DIALOG y POSTMSG

[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

[Daniel Garcia-Gil]

Hola jmansur...

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

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

[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  RUN

#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
 

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