Page 1 sur 1
[R] Fenêtre au premier plan
Posté : ven. 17 janv. 2014 11:15
par Andranik
Bonjour,
Je voulais vous demander comment faire pour que la GUI soit toujours au 1er plan même quand on clique ailleur
Voici la GUI
Code : Tout sélectionner
$Form2 = GUICreate("Help", 300, 85, -1, -1, -1, "$WS_EX_TOPMOS")
$Label1 = GUICtrlCreateLabel("Text", 8, 8, 278, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Suivant", 72, 40, 161, 33)
GUICtrlSetOnEvent($Button1, "Choos_DOT")
Merci
Re: [..] fenetre au premier plan
Posté : ven. 17 janv. 2014 11:29
par Hugues
Bonjour,
Essai avec
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled
HotKeySet("{ESC}", "_Exit")
Global $Form2
_Gui()
Func _Gui()
$Form2 = GUICreate("Help", 300, 85, -1, -1)
$Label1 = GUICtrlCreateLabel("Text", 8, 8, 278, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Suivant", 72, 40, 161, 33)
GUICtrlSetOnEvent($Button1, "Choos_DOT")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
WinSetOnTop($Form2, "", 1)
EndFunc
Func Choos_DOT()
MsgBox(0, "", "Vous avez cliquez sur le bouton", -1, $Form2)
EndFunc
Func _Exit()
Exit
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Re: [..] fenetre au premier plan
Posté : ven. 17 janv. 2014 11:36
par jguinch
Code : Tout sélectionner
$Form2 = GUICreate("Help", 300, 85, -1, -1, -1, [b]$WS_EX_TOPMOST[/b])
Re: [..] fenetre au premier plan
Posté : ven. 17 janv. 2014 15:54
par Andranik
jguinch a écrit :Code : Tout sélectionner
$Form2 = GUICreate("Help", 300, 85, -1, -1, -1, [b]$WS_EX_TOPMOST[/b])
Merci pour vos repense, mais malheureusement j'ai un message d'erreur suivant
Code : Tout sélectionner
$Form2 = GUICreate("Helper", 300, 85, -1, -1, -1,$WS_EX_TOPMOST)
$Form2 = GUICreate("Helper", 300, 85, -1, -1, -1,^ ERROR
Si je rajoute les guillemets autour "$WS_EX_TOPMOST" la fenêtre ce lance mais elle n'est pas au 1er plan
Re: [..] Fenêtre au premier plan
Posté : ven. 17 janv. 2014 16:03
par Tlem
Bonjour.
Rajoutez cette ligne au début de votre script :
ou remplacez la variable
$WS_EX_TOPMOST par la valeur
0x00000008.
Re: [R] fenetre au premier plan
Posté : ven. 17 janv. 2014 16:04
par Andranik
Hugues a écrit :Bonjour,
Essai avec
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled
HotKeySet("{ESC}", "_Exit")
Global $Form2
_Gui()
Func _Gui()
$Form2 = GUICreate("Help", 300, 85, -1, -1)
$Label1 = GUICtrlCreateLabel("Text", 8, 8, 278, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Suivant", 72, 40, 161, 33)
GUICtrlSetOnEvent($Button1, "Choos_DOT")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
WinSetOnTop($Form2, "", 1)
EndFunc
Func Choos_DOT()
MsgBox(0, "", "Vous avez cliquez sur le bouton", -1, $Form2)
EndFunc
Func _Exit()
Exit
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Je viens de tester votre proposition c'est TOP !!!
Merci