XProfan

Español

Descripción:

Mit GetWindowLong erhält uno Informationen encima el angegebene Control oder Ventana.

Deklaration:

DEf @GetWindowLong(2) !USER32,GetWindowLongA

Parámetro:

1.Parámetro: Das Handle des Ventana, encima el uno el Informationen benötigt como LongInt.

2.Parámetro: Der Offset, a el Informationen ausgelesen voluntad debería =>
--20 = Erweiterter Fensterstil
--16 = Fensterstil
--4 = El Adresse el Fensterprozedur en el Fensterklasse, el para el Verarbeiten de Messages zuständig es.
--6 = Das Instancehandle el Anwendung.
--8 = Das Handle des Elternfensters (si eins disponible es).
--12 = El ID la ventana.
--21 = Zusätzliche, para el Anwendung private, Informationen.

Rückgabewert:

Wenn el Anwendung erfolgreich war, hay como Rückmeldung el deseado LongInt Valor, ansonsten 0.

Beispiele:

Kompilieren Marca Separación

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