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

    über mich...

    ich habe meine Erfahrungen hauptsächlich gesammelt in (grobe Übersicht):

    - RibbonBar Automation
    - MySQL Nutzung
    - GUIs in vielerlei Ausprägung
    - Nutzung von Powershell / Batch in AutoIt
    - Windows Automatisierung

    außerhalb von AutoIt:

    - Sprachen: PS, Batch, php, html(5), javascript, (perl eingeschränkt), vbs
    - Powershell (AD, WPF inkl. Multi-Threading, ...)
    - Deployment-Automatisierung ohne SCCM
    - Office-Nutzung mit COM-Object (AutoIt, PowerShell)
    - ActiveDirectory und alles was damit zusammenhängt
    - Hyper-V Clustering (Converged / Hyper Converged)
    - Serverhardware (Konfiguration, Aufbau, Architektur, Betrieb)

    Lieblingsthema:

    günstige Automatisierung von Vorgängen, für die andere Firmen viel Geld nehmen

    more to come ...

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