Tastenkombination auch im Editfenster

  • Hallo Leute,

    weiß einer von euch, wie man eine Tastenkombination (z.B. Strg+O), auch über den Editfenster betätigen kann, also wenn man gerade im Editfenster ist. Denn es geht irgendwie nicht. Code habe ich auch gepostet.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #NoTrayIcon

    [/autoit] [autoit][/autoit] [autoit]

    $gui = GUICreate("Test", 500, 400)

    [/autoit] [autoit][/autoit] [autoit]

    $menu_datei = GUICtrlCreateMenu("&Datei")
    $item_oeffnen = GUICtrlCreateMenuItem("&Öffnen..." & @TAB & "Strg+O", $menu_datei)
    $item_save_as = GUICtrlCreateMenuItem("&Speichern unter...", $menu_datei)
    GUICtrlCreateMenuItem("", $menu_datei, -1) ; Hier wird ein Linie durchgezogen
    $item_beenden = GUICtrlCreateMenuItem("&Beenden", $menu_datei)

    [/autoit] [autoit][/autoit] [autoit]

    $edit = GUICtrlCreateEdit("", 5, 5, 480, 350, $WS_VSCROLL)

    [/autoit] [autoit][/autoit] [autoit]

    Dim $key[1][2] = [["^O", $item_oeffnen]]

    [/autoit] [autoit][/autoit] [autoit]

    GUISetAccelerators($key, $gui)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $Msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Switch $Msg
    Case $GUI_EVENT_CLOSE, $item_beenden
    Exit
    Case $item_oeffnen
    $open = FileOpenDialog("Öffnen...", @DesktopDir, "Textdokument (*.txt)")
    $read = FileRead($open)
    GUICtrlSetData($edit, $read)
    Case $item_save_as
    $save = FileSaveDialog ( "Speichern unter...", @DesktopDir, "Textdokument (*.txt)")
    If $save Then $save = $save & ".txt" ; Hier wird garantiert, das die Datei mit dieser Endung abgespeichert wird.
    FileWrite($save, (GUICtrlRead($edit)))
    EndSwitch
    WEnd

    [/autoit]

    Es geht nur dann, wenn ich das ganze mit auch mit Umschalt mache, z.B. so: Strg+Umschalt+O. Ich möchte aber nicht alle mit Umschalt machen, da ich es für andere Funktionen belegen möchte. Danke im vorraus.

    MfG

    MehmeX

  • wenn Du das kleine "o" nimmst ... :rofl:

    Spoiler anzeigen
    [autoit]

    Dim $key[1][2] = [["^o", $item_oeffnen]]

    [/autoit]

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

  • Wow, danke. Hätte ich nicht gedacht, dass es an dem liegt. Ist aber einerseits auch logisch. :rolleyes: