popup menu help

Ask about the individual Gambas components here.
Post Reply
sadams54
Posts: 90
Joined: Monday 09th July 2018 3:43am

popup menu help

Post by sadams54 » Tuesday 24th August 2021 9:35pm

I have a popup menu that I want to attach to multiple controls.

how do I tell which control called the popup menu so I can perform the correct action. I would like to do this in a single popup menu.

the use will be to clear the text property in that control so I think the best is to do this in a single sub from a single popup menu instead of repeating code. I just can't see how to find which control called the popup.

BruceSteers
Posts: 766
Joined: Thursday 23rd July 2020 5:20pm

Re: popup menu help

Post by BruceSteers » Wednesday 25th August 2021 8:15am

How I do it....
Do not use the Controls PopupMenu property . do it all in the MouseUp event using the PopUp function and the menu tag

Public Sub MyButton_MouseUp()

  If Not Mouse.Right Then Return

  Menu1.Tag = Last.Name
  Menu1.PopUp(Mouse.ScreenX, Mouse.ScreenY)
End

Then when any command from the menu is used i just check Menu.Tag to see where it was clicked from.

User avatar
cogier
Site Admin
Posts: 875
Joined: Wednesday 21st September 2016 2:22pm
Location: Guernsey, Channel Islands

Re: popup menu help

Post by cogier » Wednesday 25th August 2021 5:02pm

I had a long thought about this and came up with one routine that could do what you want.

1/. Create a global variable e.g. sName
2/. Make the Group property of all the controls the same e.g. Ctrls
3/. Create a routine Public Sub Ctrls_Enter(). This will catch the mouse moving into any of the controls and change the name of the global variable.

The line Me.Text = sName will change the Form's Title as you pass the mouse over the controls, so you can see how this works.
sName As String

Public Sub Ctrls_Enter()

  sName = Last.name

' Me.Text = sName

End

sadams54
Posts: 90
Joined: Monday 09th July 2018 3:43am

Re: popup menu help

Post by sadams54 » Wednesday 25th August 2021 8:34pm

Thank you both. I am glad cogier had to think about it hard. It makes me feel better that the expert himself had to think. I combined both approaches.

I used the mouseup event to call the popup and a global variable that holds the name of the button. I put the code I used below in case others need it. the tilde ~ just means there is other code.

Public ButtonID as string = ""
~
~
~
Public Sub btnPIDFile_MouseUp()
If Not Mouse.Right Then Return
ButtonID = "PID"
mbtnMakeBlank.Popup
End

Public Sub mnuClearValue_Click()
Select Case ButtonID
Case "PID"
btnPIDFile.Text = "Click To Set"
End Select
ButtonID = ""
End

BruceSteers
Posts: 766
Joined: Thursday 23rd July 2020 5:20pm

Re: popup menu help

Post by BruceSteers » Friday 27th August 2021 5:57pm

sadams54 wrote:
Wednesday 25th August 2021 8:34pm
Thank you both. I am glad cogier had to think about it hard. It makes me feel better that the expert himself had to think. I combined both approaches.

I used the mouseup event to call the popup and a global variable that holds the name of the button. I put the code I used below in case others need it. the tilde ~ just means there is other code.

Public ButtonID as string = ""
~
~
~
Public Sub btnPIDFile_MouseUp()
If Not Mouse.Right Then Return
ButtonID = "PID"
mbtnMakeBlank.Popup
End

Public Sub mnuClearValue_Click()
Select Case ButtonID
Case "PID"
btnPIDFile.Text = "Click To Set"
End Select
ButtonID = ""
End

Happy to help :)

PS. I forgot...
just under
If Not Mouse.Right Then Return

you should put...
If Not Mouse.Inside(Last) Then Return

Then if the user pushes mouse down then moves away from the control before mouse up it will not trigger.

Post Reply