https://forum.gambas.one/viewtopic.php? ... dview+menu
Now I want to show a popup menu in response to menu button click and some other function in response to left button click.
The following code kind of works but two clicks of the menu button are required to show the popup menu.
Code: Select all
Public Sub Form_Open()
gdvData.Columns.Count = 1
gdvData.Rows.Count = 5
End
'
' Public Sub gdvData_Click()
' Print "click"
' End
'
' Public Sub gdvData_Menu()
' If Mouse.Button = 1 Then Return
' Print "menu"
' gdvData.PopupMenu = "Menu1"
'
' End
Public Sub gdvData_MouseUp()
Select Case Mouse.Button
Case 1
Print "click"
Case 2
Print "menu"
gdvData.PopupMenu = "Menu1"
End Select
End