Escape pour fermer une fenêtre (sans menu & multi-OS)

[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

[selzig]

Question idiote

Code : Tout sélectionner

AddKeyboardShortcut

Désolé. A plus.

[falsam]

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

[selzig]

OK. Merci Falsam. Cordialement.