Seite 1 von 1

If EventID=#PB_Key_Escape:Quit=1:EndIf

Verfasst: 27.03.2005 15:47
von Gamer

Code: Alles auswählen

Repeat 

EventID = WaitWindowEvent()

If EventID=#PB_Key_Escape:Quit=1:EndIf

Until Quit=1
Wie muss ich das umbauen, damit das Programm durch Druck
der Escapetaste beendet wird in einem normalen Window,
egal ob die Esc nun über einem StringGadget oder sonstwo
gedrückt wurde?

Verfasst: 27.03.2005 15:51
von zigapeda

Code: Alles auswählen

Repeat

EventID = WaitWindowEvent()

If EventID=#Wm_keyfirst
  If EventwParam() = #vk_escape : Quit=1 : EndIf
EndIf

Until Quit=1

Verfasst: 27.03.2005 16:11
von Gamer
Supi! ;)

Verfasst: 27.03.2005 18:14
von zigapeda
Kein Problem musste auch erst fragen: http://forums.purebasic.com/german/viewtopic.php?t=2364