Something like this in the Mousedown event of the DesktopTextArea. The “Return True” suppresses the built in pop-up menu.
If IsContextualClick Then
' ' example from the docs that clones the Menu bar's Edit menu (minus the Writing tools etc...)
' Var popMenu As DesktopMenuItem
' popMenu = EditMenu.Clone
' Var selectedMenu As DesktopMenuItem
' selectedMenu = popMenu.Popup
' Return True
' Or build your own
Var m1 As DesktopMenuItem
Var m2 As DesktopMenuItem
m1 = New DesktopMenuItem
m2 = New DesktopMenuItem("Cut","cut")
m1.AddMenu(m2)
m2 = New DesktopMenuItem("Copy","copy")
m1.AddMenu(m2)
m2 = New DesktopMenuItem("Paste","paste")
m1.AddMenu(m2)
Var Answer As DesktopMenuItem = m1.PopUp
If Answer <> Nil Then
Select Case Answer.Tag
Case "cut"
Var selSt As Integer = TA1.SelectionStart
Var selLen As Integer = TA1.SelectionLength
TA1.Copy
TA1.Text=TA1.Text.Left(selSt)+TA1.Text.Middle(selSt+selLen)
TA1.SelectionStart=selSt
TA1.SelectionLength=0
Case "copy"
TA1.Copy
Case "paste"
TA1.Paste
End Select
Return True
End If
End If