XProfan

English

E.T.

Search after a Possibility, whom Rechtsklick on a Button auszuwerten.
in the momentum mach ich's so, over The mouse-Region:
Compile Mark Separation

If %childmessage = 516

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

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

    Erw_Menues 2....

Gefällt me but not so right, there with many Buttons and änderbarer Window- and Buttongröße right costly To proggen.

someone ne others idea ??

P.s.: Button do not have whom Focus, only "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...

01/22/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Jörg
Sellmeyer

Compile Mark Separation

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 ...

01/22/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

class !!
working super !!
so custom I me over Size and site the Buttons no thoughts More make.
very the, I needed,

thanks

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...

01/22/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote