AppliPopup
Private Sub Text1_MouseDown(Button as integer, Shift as integer, X as single, Y as single) If Button = 2 then Text1.Enabled = false PopupMenu YourMenu Text1.Enabled = True End if End Sub
Private Sub Text1_MouseDown(Button as integer, Shift as integer,
X as single, Y as single)
If Button = 2 then
Text1.Enabled = false
PopupMenu YourMenu
Text1.Enabled = True
End if
End Sub
(applipopup.html)- by Paolo Puglisi - Modifica del 25/3/2019