Hola,
¿Existe alguna manera de asignar una tecla aceleradora a los controles GET y COMBOBOX? Por ahora, sólo me funciona con los CHECKBOX.
Saludos,
Rodolfo
oDlg:bKeyDown = { | nKey, nFlags | TeclaFunc(nKey,oGet) }
*******************************************************************************
** Acelerador de Teclas
STATIC FUNCTION TeclaFunc(nKey, oGet)
IF nkey = 120 && F9
oGet[01]:SetFocus()
ENDIF
IF nKey = 114 && F3
oGet[02]:SetFocus()
ENDIF
IF nKey = 119 && F8
oGet[03]:SetFocus()
ENDIF
RETURN NIL
#include "FiveWin.ch"
function Main()
LOCAL oDlg, lExit := .f., oBtn
LOCAL cName:=Space(25), cFirst:=Space(25)
DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE "A Dialog Box"
@ 1, 2 SAY "&Name" OF oDlg
@ 1, 4 GET cName OF oDlg
@ 2, 2 SAY "&First" OF oDlg
@ 2, 4 GET cFirst OF oDlg
@ 3, 4 BUTTON "&Ok" OF oDlg SIZE 40, 12
@ 3, 12 BUTTON oBtn PROMPT "&Cancel" OF oDlg SIZE 40, 12 ACTION ( lExit := .t., oDlg:End() )
ACTIVATE DIALOG oDlg VALID lExit
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 41 guests