OnKeyDown not work
Publicado: Dom Ago 06, 2006 7:14 pm
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS EditObjectData
IF nKey == 9
IF ::cActiveBrw == "1"
::oBrw2:SetFocus()
::cActiveBrw := "2"
ELSEIF ::cActiveBrw == "2"
::oBrw3:SetFocus()
::cActiveBrw := "3"
ELSE
::oBrw1:SetFocus()
::cActiveBrw := "1"
ENDIF
ENDIF
RETURN Nil
I have 3 TDbfBrowse and 5 buttons on form. Why this method not work ? when I
press TAB focused button not browse !?
IF nKey == 9
IF ::cActiveBrw == "1"
::oBrw2:SetFocus()
::cActiveBrw := "2"
ELSEIF ::cActiveBrw == "2"
::oBrw3:SetFocus()
::cActiveBrw := "3"
ELSE
::oBrw1:SetFocus()
::cActiveBrw := "1"
ENDIF
ENDIF
RETURN Nil
I have 3 TDbfBrowse and 5 buttons on form. Why this method not work ? when I
press TAB focused button not browse !?