XProfan

Déclarer cb&[10],btn&[10]

Proc ClickedMultiItem

    Paramètres b&[]
    Déclarer I%
    I% = IndexOf(b&[],%getfocus)

    Si (I%) > -1

        Retour Clicked(%getfocus)

    EndIf

ENDPROC

Cls

WhileLoop 0,9

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

Wend

Tandis que 1

    WaitInput

    Si ClickedMultiItem(cb&[])

        Imprimer GetText $(%getfocus),"Hier sommes qui Checkboxen"

    ElseIf ClickedMultiItem(btn&[])

        Imprimer GetText $(%getfocus),"Hier sommes qui Buttons"

    EndIf

Wend

Déclarer cb&[10],ed&[10]
Var bouton$ = "linken,rechten"

Proc RClicked

    Paramètres h&
    Retour (%childMessage = 516) And (&wparam = h&)

ENDPROC

Proc RClickedMultiItem

    Paramètres b&[]
    Déclarer I%
    I% = IndexOf(b&[],&wparam)

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

        Retour &wparam

    Endif

ENDPROC

Proc ClickedMultiItem

    Paramètres b&[]
    Déclarer I%
    I% = IndexOf(b&[],%getfocus)

    Si (I%) > -1

        Retour Clicked(%getfocus)

    EndIf

ENDPROC

Cls

WhileLoop 0,9

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

Wend

Tandis que 1

    WaitInput

    Si ClickedMultiItem(cb&[])

        Imprimer GetText $(%getfocus),"Dies est un "+ ClassOf(%getfocus)

    ElseIf RClickedMultiItem(cb&[])

        CreateMenu
        AppendMenu 100,GetText $(&wparam) + " ca est un "+ ClassOf(&wparam)
        TrackMenu()

    ElseIf ClickedMultiItem(ed&[])

        Imprimer GetText $(%getfocus),"Dies est un "+ ClassOf(%getfocus) + " sur cela avec qui " + $ Substr(bouton$,%mousepressed,») + " Bouton de la souris geklicked wurde"

    ElseIf RClickedMultiItem(ed&[])

        'so peux on aussi cela windowsinterne menu pour Edits aushebeln
        CreateMenu
        AppendMenu 100,"\q" + GetText $(&wparam) + "\q ca est un "+ ClassOf(&wparam) + " sur cela avec qui " + $ Substr(bouton$,%mousepressed,») + " Bouton de la souris geklicked wurde"
        Séparateur
        AppendMenu 101,"Ausschneiden"
        AppendMenu 102,"kopieren"
        AppendMenu 103,"einfügen"
        AppendMenu 103,"löschen"
        TrackMenu()

    EndIf

Wend