[Gambas-user] Right-click menu

M. Cs. mohareve at ...626...
Fri Oct 9 23:11:47 CEST 2009


Troubles: I've done this

PUBLIC SUB gV_Menu()
DIM almenu, almenu1 AS Menu
almenu = NEW Menu(FMain)
almenu1 = NEW Menu(almenu)
almenu1.Text = "Delete selected"
almenu.Hide
IF gV.Rows.Count > 0 AND gv.Column = 1 THEN
SELECT Mouse.Right
CASE TRUE
almenu.popup()
CASE ELSE
END SELECT
ENDIF
END

And the message is there are "no mouse event data".
Can you explain me where to create a menu, or what's wrong with my code?



More information about the User mailing list