XProfan

'code to disengaged Disposal of Jörg Sellmeyer

Proc MyClassOf

    Parameters Hdl&
    Declare Class$,Style&
    Class$ = ClassOf(Hdl&)

    Select Class$

        CaseOf "Button"

        Style& = GetStyle(hdl&)

        If (Style& & 3) = 3

            Class$ = "CheckButton"

        ElseIf (Style& & $9) = $9

            Class$ = "RadioButton"

        EndIf

    EndSelect

    Return Class$

ENDPROC

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

WhileLoop 0,4

    ctrl&[&Loop] = Create(SubStr$(Class$,&Loop +1,","),%hwnd,"Test",260,40 + 30 * &Loop,160,24)
    Print be$(GetStyle(ctrl&[&Loop]))

Wend

WhileLoop 0,4

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

Wend

While 1

    WaitInput

Wend