Eigene CHM-Hilfedatei mit Taste F1 aufrufen?

[Tracker]

Ich verwende in meinem Programm ein einfaches Fenster mit Gadgets (kein Menü).
Darin habe ich einen Hilfe-Button eingebaut, der eine Hilfedatei Help.chm öffnet.
Ich würde die Hilfedatei aber auch gerne mit der Funktionstaste F1 aufrufen.
Wie müsste ich dafür folgende Schleife erweitern?

Code: Alles auswählen

Repeat  
  EventID = WaitWindowEvent()
  Select EventID
    Case #PB_Event_CloseWindow
       Quit=1
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case #Button_Help
          OpenHelp("Help.chm","")
      EndSelect
  EndSelect   
Until Quit=1

[ts-soft]

AddKeyBoardShortCut
Liefert ein Menüereignis. Guck mal in die Hilfe,
wenn Du noch nicht klar kommst, fragste einfach
nochmal nach

[Tracker]

Danke für den Tipp, aber bezieht sich AddKeyboardShortcut nicht auf Menüereignisse.
Ich verwende in meinem Programm keine Menüs.

Wie müsste der Code in die Schleife integriert werden, damit die Taste F1 die Funktion OpenHelp("Help.chm","") aufruft?

[ts-soft]

In etwa so:

Code: Alles auswählen

AddKeyboardShortcut(#Window, #PB_Shortcut_F1, 0) ; 0 ist das Menuereignis
Repeat 
  EventID = WaitWindowEvent()
  Select EventID
    Case #PB_Event_CloseWindow
       Quit=1
    Case #PB_Event_Menu
      Select EventMenuID()
        Case 0
          OpenHelp("Help.chm","")
      EndSelect
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case #Button_Help
          OpenHelp("Help.chm","")
      EndSelect
  EndSelect   
Until Quit=1

[Tracker]

Problem gelöst!
Hat wunderbar geklappt.

Ich hatte den Befehl vorhin schon ausprobiert, wusste aber nicht, was ich als Menüereignis eintragen soll.
Da ich keine Menüs habe, kann ich aber auch eine 0 eintragen, wie du es empfohlen hast.

Vielen Dank.
Du hast mir sehr geholfen!