How to execute QM item in dialog

[win]

I want to add the function of the right click to open the item, but it doesn't work. I don't understand the code below.
@kevin
How to add the following sub-function to the above code? 
 

Code:

Copy      Help

,case WM_RBUTTONUP
,Acc a.FromMouse
,int rcrn=a.Role
,str rcitem=a.Name
,if rcrn=34
,,int rccbh=a.Hwnd
,,int rciti= a.elem -1
,,mac "sub.rcmessage" "" rcrn rcitem rciti rccbh
,else
,,mac "sub.rcmessage" "" rcrn rcitem

 

Code:

Copy      Help

#sub rcmessage
function i [~item][itemindex][chwnd]
str mtext
sel i
,case 43:
,mtext="button was right clicked"
,,;mac+ item
,case 34:
,,;mtext.format("combo list item: (%s) was right clicked" item)
,,;CB_SelectItem(chwnd itemindex)
,,mac+ item
,case 33:
,,mtext="combo list was right clicked on an empty item"
if(!empty(mtext))
,mes(mtext)