Is it possible to create menu with no tab stops on the buttons?

[ModemJunki]

I'm having a hard time figuring out how to make a menu without any tab stops for the buttons.

I made a shell menu for BIOS flashing in WinPE and in it I don't want *any* buttons to be tab stopped. If I try to use GUICtrlSetStyle to remove the tab stops from all the buttons, the first button declared in the menu ends up the default (so the user could press the spacebar and the button is activated).

Melba23 posted some code like below a long time ago in this post but it seems to do the same thing as GUICtrlSetStyle does.

Any tips/help is appreciated.

_WinAPI_SetWindowLong(GUICtrlGetHandle(-1), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle(-1), $GWL_STYLE), BitNOT($WS_TABSTOP)))

expandcollapse popup

#include <ButtonConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>


Opt("GUICloseOnESC", 0) ; prevent user from pressing escape key and accidentally cancelling the GUI
HotKeySet("+!{ESC}", "_doCMD") ; shift-alt-escape for a command dialogue during GUI (lab/service use)

#include <Array.au3>
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

GLobal $s_Cmd1, $s_Cmd2, $s_Cmd3, $s_Cmd4, $s_Cmd5
$s_Debug = 0
$s_dbgArray = 0

Opt("GUICloseOnESC", 0) ; prevent user from pressing escape key and accidentally cancelling the GUI
HotKeySet("+!{ESC}", "_doCMD") ; shift-alt-escape for a command dialogue during GUI (lab/service use)

$MainMenu = GUICreate("Main BIOS Menu", 600, 400, -1, -1, 0, $WS_EX_TOPMOST)
$Button1 = GUICtrlCreateButton("1", 48, 64, 75, 25)
$Label1 = GUICtrlCreateLabel("One", 136, 68, 186, 20)
$Button2 = GUICtrlCreateButton("2", 48, 110, 75, 25)
$Label2 = GUICtrlCreateLabel("Two", 136, 113, 389, 20)
$Button3 = GUICtrlCreateButton("3", 48, 172, 75, 25)
$Label3 = GUICtrlCreateLabel("Three", 136, 176, 186, 20)
$Button4 = GUICtrlCreateButton("4", 48, 218, 75, 25)
$Label4 = GUICtrlCreateLabel("Four", 136, 221, 389, 20)
$Button5 = GUICtrlCreateButton("5", 48, 272, 75, 25)
$Label5 = GUICtrlCreateLabel("Five", 136, 274, 280, 20)
$Button6 = GUICtrlCreateButton("Cancel", 475, 340, 75, 25)
$Label6 = GUICtrlCreateLabel("Click to cancel the operations", 300, 345, 175, 20)
$Label0 = GUICtrlCreateLabel("Please choose one of the following 5 options:", 171, 16, 271, 20)
$Label7 = GUICtrlCreateLabel("Which system do you want to set up? [Press or click 1, 2, 3, 4 or use 5 to flash]", 78, 312, 456, 20)
$Group1 = GUICtrlCreateGroup("IVS", 36, 44, 513, 101)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("IAS", 36, 152, 513, 101)
GUICtrlCreateGroup("", -99, -99, 1, 1)

_WinAPI_SetWindowLong(GUICtrlGetHandle($Button1), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button1), $GWL_STYLE), BitNOT($WS_TABSTOP)))
_WinAPI_SetWindowLong(GUICtrlGetHandle($Button2), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button2), $GWL_STYLE), BitNOT($WS_TABSTOP)))
_WinAPI_SetWindowLong(GUICtrlGetHandle($Button3), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button3), $GWL_STYLE), BitNOT($WS_TABSTOP)))
_WinAPI_SetWindowLong(GUICtrlGetHandle($Button4), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button4), $GWL_STYLE), BitNOT($WS_TABSTOP)))
_WinAPI_SetWindowLong(GUICtrlGetHandle($Button5), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button5), $GWL_STYLE), BitNOT($WS_TABSTOP)))
_WinAPI_SetWindowLong(GUICtrlGetHandle($Button6), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($Button6), $GWL_STYLE), BitNOT($WS_TABSTOP)))

;~ GUICtrlSetStyle($Button1, 0)
;~ GUICtrlSetStyle($Button2, 0)
;~ GUICtrlSetStyle($Button3, 0)
;~ GUICtrlSetStyle($Button4, 0)
;~ GUICtrlSetStyle($Button5, 0)
;~ GUICtrlSetStyle($Button6, 0)
GUISetState(@SW_SHOW, $MainMenu)

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Button6
            GUISetState(@SW_HIDE, $MainMenu)
            MsgBox(4096, "Cancel", "Operation cancelled. Please remove the media and click OK to reboot.")
            Exit
        Case $nMsg = $Button1 Or _IsPressed("31") Or _IsPressed("61") ; is the button, keyboard number, or keypad number pressed?
            _doRun(@ScriptDir & "\" & $s_Cmd1)
        Case $nMsg = $Button2 Or _IsPressed("32") Or _IsPressed("62")
            _doRun(@ScriptDir & "\" & $s_Cmd2)
        Case $nMsg = $Button3 Or _IsPressed("33") Or _IsPressed("63")
            _doRun(@ScriptDir & "\" & $s_Cmd3)
        Case $nMsg = $Button4 Or _IsPressed("34") Or _IsPressed("64")
            _doRun(@ScriptDir & "\" & $s_Cmd4)
        Case $nMsg = $Button5 Or _IsPressed("35") Or _IsPressed("65")
            _doRun(@ScriptDir & "\" & $s_Cmd5)
    EndSelect
WEnd

;~ ;=============================================================================
;~ ;==================================Functions==================================
;~ ;=============================================================================

;~ ;=============================================================================
;~ ; Run function for batch or executable files, hides main menu when running
;~ ;=============================================================================
Func _doRun($RunFile)
    GUISetState(@SW_HIDE, $MainMenu)
    RunWait(@ComSpec & " /c " & $RunFile)
    GUISetState(@SW_SHOW, $MainMenu)
EndFunc   ;==>_doRun

; --------------------------------------------------
; Run a command prompt for lab/field troubleshooting
; --------------------------------------------------
Func _doCMD()
    HotKeySet("+!{ESC}") ; deactivate hotkey to prvent spawning multiple cmd boxes with it
    GUISetState(@SW_HIDE, $MainMenu) ; hide the GUI
    RunWait(@ComSpec & " /c " & "cmd.exe", "", @SW_SHOW)
    GUISetState(@SW_SHOW, $MainMenu) ; bring the GUI back up
    HotKeySet("+!{ESC}", "_doCMD") ; reset the hotkey shift-alt-escape for a command dialogue (emergency use)
EndFunc   ;==>_doCMD

 

Edited March 10, 2017 by ModemJunki

[Melba23]

ModemJunki,

Either the _WinAPI_SetWindowLong or GUICtrlSetStyle code works for me to remove the TAB_STOP style:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Misc.au3>

Opt("GUICloseOnESC", 0) ; prevent user from pressing escape key and accidentally cancelling the GUI
HotKeySet("+!{ESC}", "_doCMD") ; shift-alt-escape for a command dialogue during GUI (lab/service use)

Global $aButton[6]
Global $aButtonData[6][2] = [["", ""], [1, "One"], [2, "Two"], [3, "Three"], [4, "Four"], [5, "Five"]]
Global $aCommand[6] = ["", "Command1", "Command2", "Command3", "Command4", "Command5"]

Local $hDLL = DllOpen("user32.dll")

$MainMenu = GUICreate("Main BIOS Menu", 600, 400, -1, -1, 0, $WS_EX_TOPMOST)

For $i = 1 To 5
    $aButton[$i] = GUICtrlCreateButton($aButtonData[$i][0], 48, 5 + (40 * $i), 75, 25)
    GUICtrlCreateLabel($aButtonData[$i][1], 136, 8 + (60 * $i), 186, 20)
    ;_WinAPI_SetWindowLong(GUICtrlGetHandle($aButton[$i]), $GWL_STYLE, BitAND(_WinAPI_GetWindowLong(GUICtrlGetHandle($aButton[$i]), $GWL_STYLE), BitNOT($WS_TABSTOP)))
    GUICtrlSetStyle($aButton[$i], 0)
Next
$Button6 = GUICtrlCreateButton("Cancel", 475, 340, 75, 25)
GUICtrlCreateLabel("Click to cancel the operations", 300, 345, 175, 20)
GUICtrlCreateLabel("Please choose one of the following 5 options:", 171, 16, 271, 20)
GUICtrlCreateLabel("Which system do you want to set up? [Press or click 1, 2, 3, 4 or use 5 to flash]", 78, 312, 456, 20)
$Group1 = GUICtrlCreateGroup("IVS", 36, 44, 513, 101)
$Group2 = GUICtrlCreateGroup("IAS", 36, 152, 513, 101)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW, $MainMenu)

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Button6
            GUISetState(@SW_HIDE, $MainMenu)
            MsgBox(4096, "Cancel", "Operation cancelled. Please remove the media and click OK to reboot.")
            DllClose($hDLL)
            Exit
        Case Else
            For $i = 1 To 5
                $sKeyCode1 = String(30 + $i)
                $sKeyCode2 = String(60 + $i)
                If $nMsg = $aButton[$i] Or _IsPressed($sKeyCode1, $hDLL) Or _IsPressed($sKeyCode2, $hDLL) Then ; is the button, keyboard number, or keypad number pressed?
                    _doRun(@ScriptDir & "\" & $aCommand[$i])
                    ExitLoop
                EndIf
            Next
    EndSelect
WEnd

;~ ;=============================================================================
;~ ;==================================Functions==================================
;~ ;=============================================================================

;~ ;=============================================================================
;~ ; Run function for batch or executable files, hides main menu when running
;~ ;=============================================================================
Func _doRun($RunFile)
    GUISetState(@SW_HIDE, $MainMenu)
    RunWait(@ComSpec & " /c " & $RunFile)
    GUISetState(@SW_SHOW, $MainMenu)
EndFunc   ;==>_doRun

; --------------------------------------------------
; Run a command prompt for lab/field troubleshooting
; --------------------------------------------------
Func _doCMD()
    HotKeySet("+!{ESC}") ; deactivate hotkey to prvent spawning multiple cmd boxes with it
    GUISetState(@SW_HIDE, $MainMenu) ; hide the GUI
    RunWait(@ComSpec & " /c " & "cmd.exe", "", @SW_SHOW)
    GUISetState(@SW_SHOW, $MainMenu) ; bring the GUI back up
    HotKeySet("+!{ESC}", "_doCMD") ; reset the hotkey shift-alt-escape for a command dialogue (emergency use)
EndFunc   ;==>_doCMD

I also took the opportunity to tidy up the code a bit - you will need to polish up the button location algorithm, but I am sure you can see the benefit of using loops when you have multiple controls in a grid.

M23

[ModemJunki]

Melba23,

The end result is that a button is still in focus (e.g., Cancel button is defaulted as tab stop). Its the safest option for cancel to be in focus but I would prefer that no button is focused as the spacebar activates the focused button. It seems this "nothing-in-focus" may not actually be possible in this way.

I suppose the workaround can either be to create a button with zero size (e.g., GUICtrlCreateButton("", 0, 0 , 0 ,0)) for the default focus or to have Cancel popup an "Are you sure you want to cancel this operation?" with an OK/Cancel dialogue. (After typing this I think perhaps both might be a good idea.)

Thanks for the assistance - the tip about using a loop for the controls looks like it will make maintaining this much easier.