Viele Grüsse
Code: Alles auswählen
Enumeration
#StartStopButton
#StringTest
EndEnumeration
OpenWindow(1,0,0,200,200,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(#StringTest, 10, 50, 106, 20, "StringGadget")
ButtonGadget(#StartStopButton,10,10,106,25,"Press",0)
SetGadgetColor(#StartStopButton, #PB_Gadget_FrontColor, $00AA00)
AddKeyboardShortcut(1,#PB_Shortcut_Space,#StartStopButton) ;<---Wenn Space gedrückt wurde dann Event
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
Select EventGadget()
Case #StartStopButton
MessageRequester("Test","Button wurde gedrückt",0)
EndSelect
EndIf
If event = #PB_Event_Menu
Select EventMenu()
Case #StartStopButton
MessageRequester("Test","Button wurde gedrückt",0)
EndSelect
EndIf
Until event = #PB_Event_CloseWindow