Página 1 de 1

OnKeyDown not work

Publicado: Dom Ago 06, 2006 7:14 pm
por Srdjan
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 !?

OnKeyDown not work

Publicado: Lun Ago 07, 2006 6:11 am
por Srdjan
My mistake I set lTabStop with .F. :(
"Srdjan Dragojlovic" <digikv@yahoo.com> wrote in message
news:[email=44d62379@news.xailer.com...]44d62379@news.xailer.com...[/email]
> 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 !?
>
>