GUISetAccelerators in combination with GUIOnEventMode

[lrstndm]

I started using Accelerators and found this post: '?do=embed' frameborder='0' data-embedContent>>

I recreated the code and ended with this piece of code:

#include <GUIConstantsEx.au3>

GUICreate("Custom Msgbox", 210, 80)

GUICtrlCreateLabel("Press F1 Please", 10, 10, 200, 20)
$helpId = GUICtrlCreateDummy()

; Set accelerators for Ctrl+y and Ctrl+n
Dim $AccelKeys[1][2]=[["{F1}", $helpId]]
GUISetAccelerators($AccelKeys)

GUISetState()  ; display the GUI

While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $helpId
            Show()
    EndSelect
Wend

Func Show()
  MsgBox(0, "Info", "Help")
EndFunc

But I am using the

Opt("GUIOnEventMode", 1)

function when creating GUI's. When I add that line off code into the program the F1 key does not work anymore. How can I fix this?

My code with the GUIOnEventMode:

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

GUICreate("Custom Msgbox", 210, 80)

GUICtrlCreateLabel("Press F1 Please", 10, 10, 200, 20)
$helpId = GUICtrlCreateDummy()

; Set accelerators for Ctrl+y and Ctrl+n
Dim $AccelKeys[1][2]=[["{F1}", $helpId]]
GUISetAccelerators($AccelKeys)

GUISetState()  ; display the GUI

While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $helpId
            Show()
    EndSelect
Wend

Func Show()
  MsgBox(0, "Info", "Help")
EndFunc

[BrewManNH]

You can't use OnEvent and GUIGetMsg at the same time.

[Melba23]

lrstndm,

This seems to to do what you need:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

GUICreate("Custom Msgbox", 210, 80)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

GUICtrlCreateLabel("Press F1 Please", 10, 10, 200, 20)
$helpId = GUICtrlCreateDummy()
GUICtrlSetOnEvent($helpId, "Show")

; Set accelerators for Ctrl+y and Ctrl+n
Dim $AccelKeys[1][2]=[["{F1}", $helpId]]
GUISetAccelerators($AccelKeys)

GUISetState()  ; display the GUI

While 1
    Sleep(10)
Wend

Func Show()
  MsgBox(0, "Info", "Help")
EndFunc

Func _Exit()
    Exit
EndFunc

Please ask if you have any questions.

M23

[lrstndm]

Sorry for my late reaction. But Thanks Melba23, again;)