XProfan

Proc RClicked

    Parameters h&
    Return (%childMessage = 516) And (&wparam = h&)

EndProc

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

While 1

    WaitInput
    Locate 1,1

    If RClicked(hButton1&)

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

    ElseIf RClicked(hButton2&)

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

    ElseIf RClicked(hButton3&)

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

    EndIf

Wend