SetContextMenu(B4XFloatTextField1, Array("AAA", "BBB", "CCC"), "B4XFloatTextField1")
Sub B4XFloatTextField1_Action
Dim mi As MenuItem = Sender
Log(mi.Text)
End Sub
Sub SetContextMenu (Field As B4XFloatTextField, MenuItems As List, EventName As String)
#if B4J
Dim tf As TextField = Field.TextField
Dim ctxt As ContextMenu
ctxt.Initialize("")
For Each s As String In MenuItems
Dim mi As MenuItem
mi.Initialize(s, EventName)
ctxt.MenuItems.Add(mi)
Next
tf.ContextMenu = ctxt
#End If
End Sub