XProfan

Italia

E.T.

Cerca nach einer Möglichkeit, den Rechtsklick auf einen Button auszuwerten.
Im Moment mach ich's so, circa die Maus-Region:
Kompilieren Markieren Separieren

If %childmessage = 516

    If	@Mouse(20,30 - 220,90)
    Erw_Menues 1

ElseIf @Mouse(20,100 - 220,160)

    Erw_Menues 2....

Gefällt mir aber nicht so recht, da bei vielen Buttons und änderbarer Fenster- und Buttongröße recht aufwendig zu proggen.

Jemand ne andere Idee ??

P.S.: Button hat nicht den Focus, nur "onmouseover"...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

22.01.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Jörg
Sellmeyer

Kompilieren Markieren Separieren

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

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.01.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

E.T.

Klasse !!
Funzt Super !!
So brauch ich mir circa Dimensione und Lage der Buttons keine Gedanken mehr machen.
Genau das, was ich brauchte,

Danke

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

22.01.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione