WebView intercepts the KeyPress subroutine.
How can I fix this?
And is it possible to make the webView ignore keys altogether?
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