Sub Class_Globals
Private Root As B4XView
Private xui As XUI
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Do While True
Log(GetFocusedView)
Sleep(1000)
Loop
End Sub
Private Sub GetFocusedView As B4XView
Dim frm As Form = B4XPages.GetNativeParent(Me)
Dim focused As JavaObject = frm.As(JavaObject).GetFieldJO("scene").RunMethod("focusOwnerProperty", Null)
If focused.IsInitialized Then Return focused.RunMethod("get", Null)
Return Null
End Sub