Eingabefeld soll mit Maus bedienbar sein.

mumpel

Hallo!

Code

Local $sText = GUICtrlCreateEdit("1234", 10, 260, 780, 40)
GUICtrlSetFont(-1, 10, $FW_NORMAL, $sFont)
GUICtrlSetState($sText, $GUI_FOCUS)

Mit diesem Code erzeuge ich ein Eingabefeld. Leider ist es nicht mit der Maus bedienbar. Wie bekomme ich den Musklick hin (Suchbegriff für Google)? Danke!

Gruß, René

**Andy**

Hi,

natürlich ist das Eingabefeld mit der Maus bedienbar...nur beendet sich dein Script nach der 3. Zeile!

Wieso nimmst du nicht das Beispiel aus der Hilfe zu GUICtrlCreateEdit()?

mumpel

Die dritte Zeile ist nicht mehr drin. Trotzdem komme ich mit der Maus nicht rein. Ich finde den Fehler nicht.

Code

        ; Font type to be used for setting the font of the controls.
        Local Const $sFont = "Arial Black Narrow"
        Local $strText = "Sie starten das Projekt zum ersten Mal. Sie benötigen einen Lizenzcode. " & _
                   "Diesen können Sie beim Autor anfordern, sofern Sie zur Nutzung berechtigt sind. " & _
                   @CRLF & @CRLF & "Ihre PC-ID lautet " & $stringCodeBeginn & @CRLF & @CRLF & _
                   "Teilen Sie den Lizenzcode dem Autor mit. Die ID wird automatisch in die Zwischenablage eingefügt, wenn Sie das Eingabefeld leer lassen. " & _
                   "Wenn Sie bereits einen Lizenzcode haben, dann geben Sie ihn in das Eingabefeld ein und klicken auf 'Eintragen'. Sonst klicken Sie auf 'Abbrechen'."
        ; Create a GUI with various controls.
        Local $hGUI = GUICreate("Lizenzcode eingeben", 800, 380)

        ; Create label controls.
        GUICtrlCreateLabel($strText, 10, 10, 780, 330)
        GUICtrlSetFont(-1, 16, $FW_NORMAL, $sFont) ;Set the font of the previous control.

        Local $sText = GUICtrlCreateEdit("ID eingeben", 10, 260, 780, 20, BitOR($GUI_SS_DEFAULT_EDIT, $GUI_SS_DEFAULT_INPUT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
        GUICtrlSetFont(-1, 10, $FW_NORMAL, $sFont) ;Set the font of the previous control.

        Local $idButton_Close = GUICtrlCreateButton("Abbrechen", 700, 330, 85, 25)
        Local $idButton_Read = GUICtrlCreateButton("Eintragen", 600, 330, 85, 25)
        ; Display the GUI.
        GUISetState(@SW_SHOW)

        ; Loop until the user exits.
        While 1
                Switch GUIGetMsg()
                    Case $idButton_Read
                         IniWrite(@ScriptDir & "\files\Lizenzcode.ini", "Kennwort", "Open", GUICtrlRead($sText))
                         IniWrite(@ScriptDir & "\files\Lizenzcode.ini", "Kennwort", "PC-ID", $stringCodeBeginn)
                         ExitLoop
                    Case $idButton_Close
                        ClipPut($stringCodeBeginn)
                        Exit
                EndSwitch
        WEnd

        ; Delete the previous GUI and all controls.
        GUIDelete($hGUI)

Alles anzeigen

mumpel

Fehler doch noch gefunden. Immer diese Denkfehler. Die Positionierungen passten nicht.

mumpel 16. Juni 2023 um 01:08