XProfan

'Code a freien Disposición de Jörg Sellmeyer

Proc MyClassOf

    Parámetros Hdl&
    Declarar Class$,Style&
    Class$ = ClassOf(Hdl&)

    Select Class$

        CaseOf "Button"

        Style& = GetStyle(hdl&)

        If (Style& & 3) = 3

            Class$ = "CheckButton"

        ElseIf (Style& & $9) = $9

            Class$ = "Radio Button"

        EndIf

    EndSelect

    Volver Class$

ENDPROC

Declarar ctrl&[6],Class$
Class$ = "Button,CheckBox,RadioButton,Editar,Listbox,GridBox"
Cls

WhileLoop 0,4

    ctrl&[&Loop] = Crear(Substr$(Class$,&Loop +1,","),%hwnd,"Test",260,40 + 30 * &Loop,160,24)
    Imprimir Bin$(GetStyle(ctrl&[&Loop]))

Wend

WhileLoop 0,4

    Imprimir ClassOf(ctrl&[&Loop]) + " = " + MyClassOf(ctrl&[&Loop])

Wend

Mientras que 1

    WaitInput

Wend