WMSysKeyDown( nKey, nFlags )

[ricardo]

Prezados Senhores,
Conforme exemplo encontrado aqui no forum estou tentando utilizar o método WMSysKeyDown.
Porém quando utilizo em um Form que está dentro de um TFolde ele não funciona.
Segue abaixo um pequeno exemplo de como estou criando as classes e chamando os métodos.
Exemplo:
CLASS TFormFolder FROM XFolderPage
.
.
.

METHOD WMSysKeyDown( nKey, nFlags )
.
.
.
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMSysKeyDown( nKey, nFlags ) CLASS TFormFolder
RETURN Super:WMSysKeyDown( nKey, nFlags )
//---------------------------------------------------------- --------------------
CLASS TVendas FROM TFormFolder
.
.
.
METHOD WMSysKeyDown( nKey, nFlags )
.
.
.
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMSysKeyDown( nKey, nFlags ) CLASS TVendas
If nKey == Asc('C')
// Executa alguma função
EndIf
RETURN Nil
Atenciosamente,

[jrcpoli-quitar]

Has mirado las teclas que necesitas en:
Las constantes de las teclas para windows están en
xailerincludewinuser.api,
y todas empiezan por VK.
José Ramón Castro.
El 17/10/2012 16:46, ricardo escribió:
> Prezados Senhores,
>
> Conforme exemplo encontrado aqui no forum estou tentando
> utilizar o míƒÂ©todo WMSysKeyDown.
> PoríƒÂ©m quando utilizo em um Form que est탡 dentro de um
> TFolde ele níƒÂ£o funciona.
> Segue abaixo um pequeno exemplo de como estou criando as
> classes e chamando os míƒÂ©todos.
>
> Exemplo:
> CLASS TFormFolder FROM XFolderPage
> .
> .
> .
> METHOD WMSysKeyDown( nKey, nFlags )
> .
> .
> . ENDCLASS //----------------------------------------------------------
> --------------------
> METHOD WMSysKeyDown( nKey, nFlags ) CLASS TFormFolder
>
> RETURN Super:WMSysKeyDown( nKey, nFlags )
> //----------------------------------------------------------
> --------------------
> CLASS TVendas FROM TFormFolder
> .
> .
> . METHOD WMSysKeyDown( nKey, nFlags )
> .
> .
> .
> ENDCLASS //----------------------------------------------------------
> --------------------
> METHOD WMSysKeyDown( nKey, nFlags ) CLASS TVendas
>
> If nKey == Asc('C')
>
> // Executa alguma funíƒÂ§íƒÂ£o
>
> EndIf
>
> RETURN Nil
>
> Atenciosamente,
>

[ricardo]

O Meu problema não é em relação ao tratamento da tecla.
O problema é que em momento algum o codigo que está dentro do método WMSysKeyDown é executado.