F12 en Browse
Publicado: Vie Feb 27, 2009 6:32 am
Quiero aplicar un evento al pulsar F12 en un Browse (TArray) pero, mientrtas no este en modod de edicion no me captura F12, y al estar en modo de navegacion entre las celdas, no me reconoce el F12, hice una modificacion:
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TArrayBrowse
LOCAL oCol
LOCAL nRecno
Local lTabStop
IF Len( ::aDisplay ) == 0 .OR. hWnd == Nil
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
DO CASE
CASE nKey == VK_F12
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
:::::
pero no logro que salga, esto por que valido F12 en TForm.
Alguna idea?
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TArrayBrowse
LOCAL oCol
LOCAL nRecno
Local lTabStop
IF Len( ::aDisplay ) == 0 .OR. hWnd == Nil
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
DO CASE
CASE nKey == VK_F12
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
:::::
pero no logro que salga, esto por que valido F12 en TForm.
Alguna idea?
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--