Maus flackert über Controls

[autoit]

;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; _WinAPI_CreateWindowEx.au3
;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Constants.au3>

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

#include <WinAPI.au3>

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

Opt("MustDeclareVars", 1)

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

Global Const $IDC_STATIC = -1

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

Global Const $IDC_EDIT = 101

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

Global $hInstance

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

;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
Exit (Example())
;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

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

Func Example()

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

Local $hwndMain
Local $hwndEdit
Local $hwndStatic
Local $hwndButton

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

$hInstance = _WinAPI_GetModuleHandle(0)

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

; Das Hauptfenster erzeugen
$hwndMain = GUICreate( _
"_WinAPI_CreateWindowEx - Demo", _ ; Titel des Fensters
400, 300, -1, -1, _ ; Grösse und Position des Fensters
BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPCHILDREN), _ ; Fensterstile
$WS_EX_WINDOWEDGE, _ ; Erweiterte Fensterstile
0 _ ; Handle des Parent-Fensters
)

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

; Eine einfaches Eingabefeld erzeugen
$hwndEdit = _WinAPI_CreateWindowEx( _
0, _ ; Erweiterte Fensterstile
"EDIT", _ ; Name der Fensterklasse
"ENTER drücken...", _ ; Text/Titel des Fensters
BitOR($WS_TABSTOP, $WS_CHILD, $WS_BORDER, _ ; Fensterstile
$WS_VISIBLE, $ES_LEFT, $ES_NOHIDESEL), _
100, 80, 200, 22, _ ; Position und Grösse des Fensters
$hwndMain, _ ; Handle des Parent-Fensters
$IDC_EDIT, _ ; Identifizierer des (Kind-)Fensters
$hInstance, _ ; Instanzhandle des Moduls
0 _ ; Anwendungsdefinierter Wert
)

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

; Eine einfaches Textlabel erzeugen
$hwndStatic = _WinAPI_CreateWindowEx( _
0, _ ; Erweiterte Fensterstile
"STATIC", _ ; Name der Fensterklasse
"Text", _ ; Text/Titel des Fensters
BitOR($WS_TABSTOP, $WS_CHILD, _ ; Fensterstile
$WS_VISIBLE, $SS_CENTER), _
160, 140, 80, 18, _ ; Position und Grösse des Fensters
$hwndMain, _ ; Handle des Parent-Fensters
$IDC_STATIC, _ ; Identifizierer des (Kind-)Fensters
$hInstance, _ ; Instanzhandle des Moduls
0 _ ; Anwendungsdefinierter Wert
)

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

; Eine einfache Schaltfläche erzeugen
$hwndButton = _WinAPI_CreateWindowEx( _
0, _ ; Erweiterte Fensterstile
"BUTTON", _ ; Name der Fensterklasse
"Text", _ ; Text/Titel des Fensters
BitOR($WS_TABSTOP, $WS_CHILD, _ ; Fensterstile
$WS_VISIBLE, $BS_DEFPUSHBUTTON), _
160, 220, 80, 25, _ ; Position und Grösse des Fensters
$hwndMain, _ ; Handle des Parent-Fensters
$IDOK, _ ; Identifizierer des (Kind-)Fensters
$hInstance, _ ; Instanzhandle des Moduls
0 _ ; Anwendungsdefinierter Wert
)

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

; Fensternachrichten registrieren
GUIRegisterMsg($WM_COMMAND, "MyWM_COMMAND")

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

; Das Hauptfenster anzeigen
_WinAPI_ShowWindow($hwndMain, @SW_SHOW)

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

While (True)

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

Switch (GUIGetMsg())
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

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

EndFunc ;==>Example

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

Func MyWM_COMMAND($hwnd, $message, $wParam, $lParam)

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

Local $sMessage

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

Switch (_WinAPI_LoWord($wParam))
Case $IDC_EDIT
; Nachrichten des Eingabefeldes
Switch (_WinAPI_HiWord($wParam))

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

Case $EN_UPDATE
ContinueCase
Case $EN_CHANGE
ConsoleWrite(_WinAPI_GetWindowText($lParam) & @CRLF)
EndSwitch

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

Case $IDOK
$sMessage = StringFormat("Die Schaltfläche mit der ID %d wurde gedrückt.", $IDOK)
_WinAPI_MsgBox( _
BitOR($MB_OK, $MB_ICONASTERISK), _
"MyWM_COMMAND", _
$sMessage _
)
EndSwitch

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

Return $GUI_RUNDEFMSG

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

EndFunc ;==>MyWM_COMMAND

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

;«««««««««««««««««««««««««««««««« End of File «««««««««««««««««««««««««««««««««

[/autoit]