It "has" that event.
Declare an EditText in the Globals section.
Then write:
Sub + Space + Tab + e (for edittext) + Tab again. This lists all avalaible events for EditText
P.S. You don't need to declare the EditText, the "procedure" works even without it
Dim R As Reflector
R.Target = TextField1
R.AddChangeListener("TextField1Focus","focusedProperty")
End Sub
Sub TextField1Focus_Changed(old As Object,New As Object)
Log(New)
End Sub
This is good example of where there is confusion between B4A and B4J.
I still think it would be better to split this Forum in totally separate B4A and B4J sections.
B4J is cluttering the B4A forum, at least that is still my opinion.