Android Question WebView intercepts keystrokes

scp

New Member
WebView intercepts the KeyPress subroutine.
How can I fix this?
And is it possible to make the webView ignore keys altogether?

B4X:
#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
    Private menucount As Int
End Sub

Sub Globals
   
   
    'These global variables will be redeclared each time the activity is created.
    Private Label1 As Label
    Private WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    menucount=0
    WebView1.LoadUrl("https://ya.ru")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean
   
    Label1.Text="    "&KeyCode
    If KeyCode = KeyCodes.KEYCODE_BACK Then ' НАЖАТА КНОПКА НАЗАД
        ' ПРИ НАЖАТИ 3 РАЗА КНОПКИ НАЗАД - ВЫХОД ИЗ ПРИЛОЖЕНИЯ
        menucount = menucount + 1
        If menucount = 3 Then
            Activity.Finish
        End If
        '-----------------------------------------------------
        Label1.Text="  back  "&KeyCode
        Return True ' Возвращаем True, чтобы предотвратить дальнейшую обработку события
    End If
   
    If KeyCode = KeyCodes.KEYCODE_DPAD_LEFT Then ' НАЖАТА КНОПКА НА ПУЛЬТЕ - ВЛЕВО
        Label1.Text=" left   "&KeyCode
        menucount=0
       
   
        Return True
    End If
   
    If KeyCode = KeyCodes.KEYCODE_DPAD_RIGHT Then ' НАЖАТА КНОПКА НА ПУЛЬТЕ - ВПРАВО
        Label1.Text="  right  "&KeyCode
        menucount=0
       
        Return True
    End If
   
    If KeyCode=KeyCodes.KEYCODE_DPAD_UP Then ' НАЖАТА КНОПКА НА ПУЛЬТЕ - ВВЕРХ
        Label1.Text="   up "&KeyCode
   
   
        Return True
    End If
   
    If KeyCode=KeyCodes.KEYCODE_DPAD_DOWN Then ' НАЖАТА КНОПКА НА ПУЛЬТЕ - ВНИЗ
        Label1.Text="  down  "&KeyCode

        Return True
    End If
   
    If KeyCode = KeyCodes.KEYCODE_ENTER Or KeyCode = KeyCodes.KEYCODE_DPAD_CENTER Then ' НАЖАТА КНОПКА НА ПУЛЬТЕ - ENTER or Center pad
        Label1.Text="  enter  "&KeyCode
        menucount=0

       
        Return True
    End If
   

   
    Return False
End Sub
 
Top