IME1.AddHeightChangedEvent
Private Sub IME1_HeightChanged (NewHeight As Int, OldHeight As Int)
If NewHeight < (Text4.top + Text4.Height) Then
Text4.Top = NewHeight - Text4.Height
End If
End Sub
But you have to reset the starting position when the keyboard is closed.
Furthermore, instead of Text4 you will need to use a global variable of type TextBox and set it "equal" (point to) the current EditText (in the FocusChanged event of each of your TextBoxes)
confirmacadastro is my panel with 5 edittext inside i tested but dont work
what I did wrong in this code?
when i press one edittext the panel dont go up *-*
B4X:
Dim IME As IME
IME.Initialize("IME")
IME.AddHeightChangedEvent
Private Sub IME1_HeightChanged (NewHeight As Int, OldHeight As Int)
If NewHeight < (confirmacadastro.top + confirmacadastro.Height) Then
confirmacadastro.Top = NewHeight - confirmacadastro.Height
End If
End Sub