XProfan

Español

E.T.

Búsqueda después de uno Möglichkeit, el Rechtsklick en una Button auszuwerten.
Im Moment mach ich's así, en Ratón-Region:
Kompilieren Marca Separación

If %childmessage = 516

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

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

    Erw_Menues 2....

Gefällt me pero no así bastante, como en vielen Buttons y änderbarer Ventana- y Buttongröße bastante aufwendig a proggen.

Alguien ne otro Concepto ??

P.S.: Button ha no el Focus, sólo "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 Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Jörg
Sellmeyer

Kompilieren Marca Separación

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 Cita Zeilenweise Cita

E.T.

Klasse !!
Funzt Super !!
So costumbre Yo encima Größe y Lage el Buttons no Gedanken mehr hacer.
Exactamente el, Yo brauchte,

Gracias

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 Cita Zeilenweise Cita