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?
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay 
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to