; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=2942&highlight= ; Author: NicTheQuick ; Date: 26. November 2003 #G_Button = 0 If OpenWindow(0, 0, 0, 150, 20, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "KeyBoardShortcut") If CreateGadgetList(WindowID()) ButtonGadget(#G_Button, 0, 0, 150, 20, "Klicken oder Return") AddKeyboardShortcut(0, #PB_Shortcut_Return, #G_Button) Repeat EventID.l = WaitWindowEvent() Select EventID Case #PB_EventCloseWindow Break Case #PB_EventGadget ;Per Maus Select EventGadgetID() Case #G_Button Gosub G_Button_Event EndSelect Case #PB_EventMenu ;Per Tastatur Select EventMenuID() Case #G_Button Gosub G_Button_Event EndSelect EndSelect ForEver EndIf EndIf End G_Button_Event: MessageRequester("Info", "Button wurde gedrückt", 0) Return ; ExecutableFormat=Windows ; EnableXP ; EOF