Detecting right mouse click on button

[creeping]

I have created some buttons using GUICtrlCreateButton()

If the user left clicks -> perform action1

If the user right clicks -> perform action2

Thanks.

[smashly]

There's probly a better way to do it, but you could do similar for any type of control , not just buttons..

expandcollapse popup

#include <GuiConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)

$Main = GuiCreate("MyGUI", 141, 128,-1, -1)

$Button_1 = GuiCtrlCreateButton("Button1", 30, 20, 80, 30)
GUICtrlSetOnEvent($Button_1, 'ButtonID')
$Button_2 = GuiCtrlCreateButton("Button2", 30, 70, 80, 30)
GUICtrlSetOnEvent($Button_2, 'ButtonID')

GUISetOnEvent($GUI_EVENT_SECONDARYDOWN, 'ButtonID',$Main)
GUISetOnEvent($GUI_EVENT_CLOSE, 'ButtonID',$Main)

GuiSetState()

While 1
    Sleep(10)
WEnd

Func ButtonID()
    Select
        Case @GUI_CTRLID = $GUI_EVENT_SECONDARYDOWN
            $mp = MouseGetPos()
            If ($mp[0] > 33 and $mp[0] < 114) And ($mp[1] > 48 And $mp[1] < 78) Then
                MsgBox(0,'', 'Button1 was Right Clicked')
            ElseIf ($mp[0] > 33 and $mp[0] < 114) And ($mp[1] > 99 And $mp[1] < 130) Then
                MsgBox(0,'', 'Button2 was Right Clicked')
            EndIf
        Case @GUI_CTRLID = $Button_1
            MsgBox(0,'','Button1 was Left Clicked')
        Case @GUI_CTRLID = $Button_2
            MsgBox(0,'','Button2 was Left Clicked')         
        Case @GUI_CTRLID = $GUI_EVENT_CLOSE
            Exit
    EndSelect
EndFunc

Cheers

Edited March 27, 2007 by smashly

[creeping]

Cool, that will do fine.

Ta

[Richard Robertson]

Standard Windows buttons aren't meant to be right clicked.