Xailer & OZ Software

Hola a todos, estoy queriendo cambiar el comportamiento del tEditBtn y
quiero hacer que al apretar F10 se ejecute el evento Click del mismo y
no con F2 como esta predeterminado, ademas viendo el foro vi que se
puede hacer que con flecha arriba y flecha abajo cambie al control
anterior y siguiente asi que cree un .prg y le escribi esto:
/*
* Proyecto: NewLinea
* Fichero: mitEditBtn.prg
* Descripción:
* Autor:
* Fecha: 25/11/2008
*/
#include "Xailer.ch"
CLASS TEditBtn FROM XEditBtn
METHOD WMKeyDown()
ENDCLASS
METHOD WMKeyDown( nKey, nFlags ) CLASS tEditBtn
LogDebug('editbtn'+str(nKey,5))
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ENDIF
IF nKey==VK_F10
::Click()
RETURN 0
ENDIF
IF Application:nWinVer >= 5
::PostMsg( WM_XAILER ) // NOTA: Bug*
ENDIF
RETURN Super:WMKeyDown( nKey, nFlags )
y lo añadi a mi proyecto pero no funciona ni el LogDebug se ejecuta que
podra ser ?
Saludos Atte
Christian Assenza

Tendrás que sobrecargar la calse de esta manera:
//F4 pulsa el botón de los EditBtn y DbEditBtn
Class tEditBtn From xEditBtn
Method WMKeyDown( nKey, nFlags)
EndClass
METHOD WMKeyDown( nKey, nFlags ) CLASS tEditBtn
IF nKey == VK_F4
::Click()
RETURN 0
ENDIF
IF Application:nWinVer >= 5
::PostMsg( WM_XAILER ) // NOTA: Bug*
ENDIF
RETURN Super:WMKeyDown( nKey, nFlags )
Salu2.