XProfan

Declarar cb&[10],btn&[10]

Proc ClickedMultiItem

    Parámetros b&[]
    Declarar I%
    I% = IndexOf(b&[],%getfocus)

    If (I%) > -1

        Volver Clicked(%getfocus)

    EndIf

ENDPROC

Cls

WhileLoop 0,9

    cb&[&Loop] = Crear("CheckBox",%hwnd,"CheckBox " + Str$(&Loop + 1),310,10 + &Loop * 25,120,24)
    btn&[&Loop] = Crear("Button",%hwnd,"Button " + Str$(&Loop + 1),440,10 + &Loop * 25,120,24)

Wend

Mientras que 1

    WaitInput

    If ClickedMultiItem(cb&[])

        Imprimir GetText $(%getfocus),"Hier son el Checkboxen"

    ElseIf ClickedMultiItem(btn&[])

        Imprimir GetText $(%getfocus),"Hier son el Buttons"

    EndIf

Wend

Declarar cb&[10],ed&[10]
Var Taste$ = "linken,rechten"

Proc RClicked

    Parámetros h&
    Volver (%childMessage = 516) And (&wparam = h&)

ENDPROC

Proc RClickedMultiItem

    Parámetros b&[]
    Declarar I%
    I% = IndexOf(b&[],&wparam)

    If (%childMessage = 516) And (I% > -1)

        Volver &wparam

    Endif

ENDPROC

Proc ClickedMultiItem

    Parámetros b&[]
    Declarar I%
    I% = IndexOf(b&[],%getfocus)

    If (I%) > -1

        Volver Clicked(%getfocus)

    EndIf

ENDPROC

Cls

WhileLoop 0,9

    cb&[&Loop] = Crear("CheckBox",%hwnd,"CheckBox " + Str$(&Loop + 1),310,10 + &Loop * 25,120,24)
    ed&[&Loop] = Crear("Edit",%hwnd,"Edit " + Str$(&Loop + 1),440,10 + &Loop * 25,120,24)

Wend

Mientras que 1

    WaitInput

    If ClickedMultiItem(cb&[])

        Imprimir GetText $(%getfocus),"Dies es una "+ ClassOf(%getfocus)

    ElseIf RClickedMultiItem(cb&[])

        CreateMenu
        AppendMenu 100,GetText $(&wparam) + " Dies es una "+ ClassOf(&wparam)
        TrackMenu()

    ElseIf ClickedMultiItem(ed&[])

        Imprimir GetText $(%getfocus),"Dies es una "+ ClassOf(%getfocus) + " el con el " + Substr$(Taste$,%mousepressed,",") + " Botón del ratón geklicked wurde"

    ElseIf RClickedMultiItem(ed&[])

        'así puede ser auch el windowsinterne Menü para Edits aushebeln
        CreateMenu
        AppendMenu 100,"\q" + GetText $(&wparam) + "\q Dies es una "+ ClassOf(&wparam) + " el con el " + Substr$(Taste$,%mousepressed,",") + " Botón del ratón geklicked wurde"
        Separador
        AppendMenu 101,"Ausschneiden"
        AppendMenu 102,"kopieren"
        AppendMenu 103,"einfügen"
        AppendMenu 103,"löschen"
        TrackMenu()

    EndIf

Wend