ON OTHER MESSAGES nao estah funcionando.

[marcos.gurupi]

Eu utilizo o ON OTHER MESSAGES para chamar teclas de atalho (F2/F3...) na ver 2.14 e funciona normalmente, agora estou usando na ver. 2.16 e n chama a funcao segue abaixo como estah.


INIT DIALOG oMain CLIPPER NOEXIT TITLE "Software Licenciado para "+Empresa->Razao;
ON EXIT {||Sair()};
AT 0, 0 ;
SIZE 600, 600 ;
ON OTHER MESSAGES {|o,m,wp,lp|MessagesProc(o,m,wp,lp)};
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE


Function MessagesProc( oWnd, msg, wParam, lParam )

If wParam == VK_F2
msginfo("TECLOU - F2")
ElseIF wParam == VK_F3
msginfo("TECLOU - F3")
ElseIF wParam == VK_F4
msginfo("TECLOU - F4")
ElseIF wParam == VK_F5
msginfo("TECLOU - F5")
Endif

Return -1