XProfan

Français

Beschreibung:

avec GetWindowLong erhält on Informationen sur cela angegebene Contrôle ou bien la fenêtre.

Deklaration:

DEf @GetWindowLong(2) !USER32,GetWindowLongA

paramètre:

1.paramètre: cela Handle des la fenêtre, sur cela on qui Informationen nécessaire comme LongInt.

2.paramètre: qui Offset, à dem Informationen ausgelesen volonté devoir =>
--20 = Erweiterter Fensterstil
--16 = Fensterstil
--4 = qui Adresse qui Fensterprozedur dans qui Fensterklasse, qui pour cela Verarbeiten de Messages zuständig ist.
--6 = cela Instancehandle qui Anwendung.
--8 = cela Handle des Elternfensters (si une vorhanden ist).
--12 = qui ID des Fensters.
--21 = Zusätzliche, pour qui Anwendung private, Informationen.

Rückgabewert:

si qui Anwendung erfolgreich était, gibt es comme Rückmeldung den gewünschten LongInt Wert, ansonsten 0.

Beispiele:

Kompilieren Marque Séparation

Declare Edit&,Checkbox&,Style1&,Style2&,Change%
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEf @GetWindowLong(2) !"USER32","GetWindowLongA"
DEf @SetWindowLong(3) !"USER32","SetWindowLongA"
SetTrueColor 1
Windowstyle 31
WindowTitle "Editstyle ändern"
Window 0,0-640,440
CLS @GetSysColor(15)
Let Edit&=@Createedit(%HWND,"Test",20,120,250,25)
Let Style1&=@GetWindowLong(Edit&,-16)
Let Style2&=Style1& | $20000000
Let Checkbox&=CreateCheckbox(%HWND,"Editbox verschieben",20,200,250,25)

While 0=0

    Waitinput

    IF @AND(@GetCheck(Checkbox&)=1,Change%=0)

        @SetWindowLong(Edit&,-16,Style2&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=1
        Beep 1

    elseif @AND(@GetCheck(Checkbox&)=0,Change%=1)

        @SetWindowLong(Edit&,-16,Style1&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=0
        Beep 1

    endif

Wend