Close Windows KEY_ESCAPE no Work here.

BlitzMax Forums/MaxGUI Module/Close Windows KEY_ESCAPE no Work here.

Yue	(Posted 2015) [#1]

Import MaxGUI.Drivers


Local MyWindow:TGadget = CreateWindow("My Window",100,100,800,600, Null)




Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
		End
		Case EVENT_KEYDOWN
			Select EventData ()
		         Case KEY_ESCAPE
		          End
		         Case KEY_A
		          End
		      End Select
	End Select
Forever

TomToad

(Posted 2015) [#2]

Windows do not emit key events by default. You need to set the gadget sensitivity

SuperStrict
Import MaxGUI.Drivers


Local MyWindow:TGadget = CreateWindow("My Window",100,100,800,600, Null)

SetGadgetSensitivity( MyWindow, SENSITIZE_KEYS) '<- Set Here


Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
		End
		Case EVENT_KEYDOWN
			Select EventData ()
		         Case KEY_ESCAPE
		          End
		         Case KEY_A
		          End
		      End Select
	End Select
Forever

Yue	(Posted 2015) [#3]

Tom Toad : Windows do not emit key events by default. You need to set the gadget sensitivity

Thanks You :)