XProfan

Proc RClicked

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

ENDPROC

Cls
Déclarer hButton1&,hButton2&,hButton3&
hButton1& = Créer("Button",%hwnd,"Test 1",10,50,48,20)
hButton2& = Créer("Button",%hwnd,"Test 2",10,80,48,20)
hButton3& = Créer("Button",%hwnd,"Test 3",10,110,48,20)

Tandis que 1

    WaitInput
    Localiser 1,1

    Si RClicked(hButton1&)

        Imprimer "Button " + GetText $(&wparam) + " erwischt"

    ElseIf RClicked(hButton2&)

        Imprimer "Button " + GetText $(&wparam) + " erwischt"

    ElseIf RClicked(hButton3&)

        Imprimer "Button " + GetText $(&wparam) + " erwischt"

    EndIf

Wend