XProfan

Proc RClicked

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

ENDPROC

Cls
Declarar hButton1&,hButton2&,hButton3&
hButton1& = Crear("Button",%hwnd,"Test 1",10,50,48,20)
hButton2& = Crear("Button",%hwnd,"Test 2",10,80,48,20)
hButton3& = Crear("Button",%hwnd,"Test 3",10,110,48,20)

Mientras que 1

    WaitInput
    Localizar 1,1

    If RClicked(hButton1&)

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

    ElseIf RClicked(hButton2&)

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

    ElseIf RClicked(hButton3&)

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

    EndIf

Wend