EditText event question

[pamoxi]

I have the next code:

Sub Globals
Dim sch As EditText
Dim pad As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
sch.InputType = sch.INPUT_TYPE_NONE
End Sub

Sub sch_click
pad.Visible = True
End Sub

The panel is not visible at start, and is a custom keyboard.
I have to touch twice in the sch EditText to show the panel.

How i make to show the panel with one touch in the EditText?

 

[klaus]

By default, the EditText view doesn't have a Click event in B4A.
You should use the FocusChanged event, and test when HasFocus = True.

Best regards.

 

[pamoxi]

Obviously have a click event, because the code works, but not like I wanted.
I solved the problem with the FocusChanged event.
thanks