[R] Cacher le focus

[TopXm]

Bonjour

Je réalise mon premier bout de code en AutoIt aujourd'hui et j'aurai une question à vous soumettre.

Comme indiqué dans le titre, j'aimerai lors de l'affichage d'une fenêtre qu'aucun des contrôles présents ne récupère le focus.

J'ai donc fait une recherche sur le forum qui ne m'a pas donnée satisfaction (possible que je n'ai pas recherché correctement).

J'ai bien vu la fonction ControlFocus. Du coup je me demande si je dois :

1. Créer un contrôle que je définirai en Hiden et auquel je donnerai le focus ?
2. Créer un contrôle hors fenêtre (ma fenêtre n'est pas resizable), du coup lorsqu'il prendrait le focus cela ne se verrait pas ?
3. Poser la question aux pros du forum ?

J'ai donc opté pour la dernière solution

Je me permet d'ailleurs de vous joindre mon premier bout de code car j'ai la forte impression que je n'ai pas fait au plus simple, notamment l'alimentation du texte des radios, mais cela est un autre problème

► Afficher le texteCacher le focus

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>


Global $Cum, $Top, $GUI

; ======================================================================== *
;     ScanReg : Gestion des fichiers des préférences des navigateurs       *
;                                                                          *
;  NB : C'est mon premier source en AutoIt donc ça risque de               *
;       faire bien marrer les pros ... mais comme le ridicule ne tue pas   *
; ======================================================================== *

Main()

Func Main()
    GUIPrepare()
    While GUIGetMsg() <> $GUI_EVENT_CLOSE

    WEnd
EndFunc

Func GUIPrepare()
    ; ===
    ; Recherche des navigateurs dans le registre. On alimente alors des Boutons Radio, deux par lignes
    ; puis on passe à la ligne suivante. En fin de boucle on resize :
    ;   ==> la frame (Groupe)
    ;   ==> On positionne les boutons
    ;   ==> On Resize la fenêtre
    ; ==================================================================================================================
    ; NB : Ma méthode pour modifier les captions des Radio est vilaine mais je n'ai pas trouvé mieux pour l'instant ....
    ; ==================================================================================================================
    GUICreate("ScanPrefs by Moi ... ", 400, 400, -1, -1, $WS_SYSMENU)
    GUISetIcon("icon.ico")
    $Groupe = GUICtrlCreateGroup("   Browsers   ", 10, 10, 380, 400)
    $Paire = True
    $i = 0
    $Cum = 0
    $Top = 30
    $Left = 20
    $Left2 = 200
    $KeyR = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\StartMenuInternet"
    while 1
        $i+=1
        $Browser = RegEnumKey($KeyR, $i)
        If @error <> 0 Then ExitLoop
        $BrowserName = RegRead($KeyR & "\" & $Browser, "")
        if $Paire Then
            $info1=GUICtrlCreateRadio("blabla", $Left, $Top, 160, 20)
        Else
            $info1=GUICtrlCreateRadio("blabla", $Left2, $Top, 160, 20)
        endif
        GUICtrlSetResizing(-1, $GUI_DOCKALL)
        if $BrowserName <> '' Then
            GUICtrlSetData($Info1, $BrowserName)
        else
            GUICtrlSetData($Info1, $Browser)
        endif
        $Paire = not $Paire
        $Cum = $Cum + 1
        if $Cum = 2 Then
            $Cum = 0
            $Top = $Top + 30
        endif
    WEnd
    GUICtrlSetPos($Groupe, 10, 10, 380, $Top - 10)
    GUICtrlSetResizing($Groupe, $GUI_DOCKALL)
    $Top+=10
    GUICtrlCreateButton("Edit", 30, $Top, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKALL)
    GUICtrlCreateButton("Init", 120, $Top, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKALL)
    GUICtrlCreateButton("Scan", 210, $Top, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKALL)
    GUICtrlCreateButton("Repair", 300, $Top, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKALL)
    $Cum = $Top + 60
    winmove("ScanPrefs by Moi ... ", "", Default, Default, Default, $Cum)
    ;ControlFocus("ScanPrefs by Moi ... ", "", -1)
    GUISetState()
EndFunc
 

Merci par avance et bonne soirée à tous

[zeshrek]

Moi j'ai une question toute bête, pourquoi aucun controle ne devrait avoir le focus ?
Bref, perso, le coup du controle hidden me parrait le plus logique (en désactivant le tabstop tant qu'a faire)

[Tlem]

Un

Code : Tout sélectionner

GUICtrlSetState ( $Groupe, $GUI_FOCUS )

juste avant ou après le

Code : Tout sélectionner

 GUISetState()

et désactivation du tabstop ...

[TopXm]

Bonjour,

Moi j'ai une question toute bête, pourquoi aucun controle ne devrait avoir le focus ?

Sans doute une mauvaise habitude ...

Merci pour vos réponses pour le cachage de focus

[EDIT]En fait zeshrek, ta question m'a fait réfléchir et du coup je vais poser le focus sur le navigateur par défaut

[EDIT]Pour éviter le double-post du coup je pose le bout de code, si ça peut aider ...

► Afficher le texteRecherche le navigateur par défaut et donne le focus au radio associé

Code : Tout sélectionner

Func GetDefaultBrowser()
    ;-------------------------------------------------------------
    ; Recherche du navigateur par défaut et lui attribuer le focus
    ;-------------------------------------------------------------
    Local $DefaultBrowser
    Local $RegDefaultBrowser = "HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application"
    $DefaultBrowser = RegRead($RegDefaultBrowser, "")
    If @error = 0 Then
        For $J = 0 to 10
            If $AllBrowser[$J] = "" Then ExitLoop
            If StringInStr(GUICtrlRead($Radio[$J], 1), $DefaultBrowser, 0) <> 0 Then
                GUICtrlSetState($Radio[$J], $GUI_CHECKED)
                ExitLoop
            EndIf
        Next
    EndIf
EndFunc