Mehrere Tasten

[Green Snake]

Hallo Zusammen

habe folgende frage, die für euch kein problem darstellen sollte:

wei kann ich "tastenkürzel" erstelln?
habe schon in der hilfe nachgeschaut, klappt aber nicht
also:
ich will, dass wenn ich (hier im beispiel) auf
CTRL + ALT + Q drücke, (nur wenn diese drei gleichzeitig gedrück werden)

ein messagerequester erscheint.

wie geht das?

[zigapeda]

Hast du ein ganz normales fenster (openwindow) oder ein DirektX fenster (openscreen)?

[Leo]

Meinst du sowas?

Code: Alles auswählen

Repeat
    If GetAsyncKeyState_(#VK_ESCAPE)
        Quit = #True 
    EndIf
    If GetAsyncKeyState_(#VK_CONTROL)
        If GetAsyncKeyState_(#VK_MENU)
            If GetAsyncKeyState_(#VK_Q)
                ;Code hier
                MessageRequester("Ctrl + Alt + Q","Hier passiert was! Escape zum Beenden")
            EndIf
        EndIf
    EndIf
    Delay(10)
Until Quit = #True 
End 

[Danilo]

wei kann ich "tastenkürzel" erstelln?

Mit AddKeyboardShortcut()

Kombinieren kannst Du die Tasten mit einem binären Oder:

Code: Alles auswählen

If OpenWindow(0,0,0,200,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"KBD Shortcut")
  AddKeyboardShortcut(0,#PB_Shortcut_Control|#PB_Shortcut_Alt|#PB_Shortcut_Q,100)
  AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_X,101)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
      Case #PB_Event_Menu
        Select EventMenuID()
          Case 100
            MessageRequester("INFO","Shortcut Control+Strg+Q")
          Case 101
            End
        EndSelect
    EndSelect
  ForEver
EndIf

Getestet auf Linux.