Page 1 sur 1
Escape pour fermer une fenêtre (sans menu & multi-OS)
Publié : mar. 07/nov./2017 14:15
par selzig
Bonjour,
existe-t-il un moyen de fermer une fenêtre par l'appui sur la touche "ESC" du clavier sans que la fenêtre ne dispose d'un menu. Je cherche un code portable pour les 3 OS.
Merci. Gilles
Re: Escape pour fermer une fenêtre (sans menu & multi-OS)
Publié : mar. 07/nov./2017 14:29
par selzig
Question idiote
Désolé. A plus.
Re: Escape pour fermer une fenêtre (sans menu & multi-OS)
Publié : mar. 07/nov./2017 14:32
par falsam
selzig a écrit :Question idiote
Mais non ça arrive à tout le monde ^-^
Petite code puisque le sujet est ouvert
Code : Tout sélectionner
Enumeration Key
#Escape
EndEnumeration
Enumeration Window
#mf
EndEnumeration
Declare Start()
Declare Exit()
Start()
Procedure Start()
OpenWindow(#mf, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(#mf, #PB_Shortcut_Escape, #Escape)
;Déclencheur evenementiels
BindEvent(#PB_Event_Menu, @Exit(), #mf, #Escape)
BindEvent(#PB_Event_CloseWindow, @Exit())
Repeat : WaitWindowEvent() : ForEver
EndProcedure
Procedure Exit()
End
EndProcedure
Re: Escape pour fermer une fenêtre (sans menu & multi-OS)
Publié : mar. 07/nov./2017 14:33
par selzig
OK. Merci Falsam. Cordialement.