Transparent

    Warum ist meine Formular nicht transparent?

    Spoiler anzeigen
    [autoit]

    ; Test
    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 23, 413, 516, 211,-1,$WS_EX_TRANSPARENT)
    GUISetOnEvent($GUI_EVENT_CLOSE,"OnClose",$Form1)
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN,"Mouse",$Form1)
    GUISetCursor (0)
    ;GUISetBkColor(0xFFFF00)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    If $Cmdline[0] = 0 Then
    $File = "T21.exe"
    Else
    $File = $Cmdline[1]
    EndIf
    While 1
    Sleep(1000)
    WEnd
    Func Mouse()
    $A = MouseGetPos()
    Run($File & " " & $A[1])
    Exit $A[1]
    EndFunc
    Func OnClose()
    Exit
    EndFunc

    [/autoit]

    Edit BugFix: Tipp: Bitte verwende AutoIt-Tags statt Code-Tags, das verbessert die Lesbarkeit deutlich. [ autoit ]Code[ /autoit ] o. Leerzeichen

    Gruss Hans-Jürgen ^^

    Einmal editiert, zuletzt von BugFix (4. Mai 2008 um 11:05)

    [autoit]

    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 100, 413, 516, 211,-1)
    GUISetOnEvent($GUI_EVENT_CLOSE,"OnClose",$Form1)
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN,"Mouse",$Form1)
    GUISetCursor (0)
    ;GUISetBkColor(0xFFFF00)
    WinSetTrans("Form1","",100)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    If $Cmdline[0] = 0 Then
    $File = "T21.exe"
    Else
    $File = $Cmdline[1]
    EndIf
    While 1
    Sleep(1000)
    WEnd
    Func Mouse()
    $A = MouseGetPos()
    Run($File & " " & $A[1])
    Exit $A[1]
    EndFunc
    Func OnClose()
    Exit
    EndFunc

    [/autoit]