Página 1 de 1

OnKeyDown Class

Publicado: Mié Dic 07, 2005 10:58 pm
por carlos
Saludos a todos
Quisiera que al teclear un caracter o un numero, que se escuche el sonido de
"type.wav", lo quiero para todos los TEdit Controles, no se con toda
honestidad como decirle a un evento que me haga algo para todos los casos.
CLASS TEdit FROM XEdit
PROPERTY nClrPaneFocus INIT RGB( 255, 255, 192 )
EVENT OnKeyDown(PlaySoundASync("C:ControlarSoundType.wav"))
ENDCLASS
Se que esta mal, pero envio esto para que sepan a que me refiero
Gracias

OnKeyDown Class

Publicado: Sab Dic 10, 2005 2:06 am
por jlalin
Carlos,
esto debe funcionar.
//---
CLASS TEdit FROM XEdit
PROPERTY nClrPaneFocus INIT RGB( 255, 255, 192 )
METHOD WMKeyDown( nKey, nFlags )
METHOD Destroy()
ENDCLASS
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
PlaySoundASync( "C:ControlarSoundType.wav" )
RETURN Super:WMKeyDown( nKey, nFlags )
METHOD Destroy() CLASS TEdit
StopSounds()
RETURN Super:Destroy()
//---
Saludos,
José Lalí­n