[*]Profan

Español

E.T.

como en una por cls oder Ventana x,y geöffnetem Ventana, podría Trackmenu en con @Crear("Window",... oder @Crear("Dialog",... erzeugten Ventana trabajo ???

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

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Algo como?
Kompilieren Marca Separación

windowStyle 2048
cls
userMessages 123,16// wm_contextMenu,wm_close
var w&=create("dialog",%hWnd,"Huhu",10,10,100,100)

while 1

    waitinput

    select %uMessage

        caseof 123

        createMenu
        appendMenu 100,"oi"

        select trackMenu()

            caseof 100 : break

        endSelect

        caseof 16

        break

    endSelect

wend

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Schauma dis täts doch:
Kompilieren Marca Separación

cls
userMessages 123// wm_contextMenu
var w&=create("dialog",%hWnd,"Huhu",10,10,100,100)

while 1

    waitinput

    if %uMessage=123

        createMenu
        appendMenu 100,"oi"
        trackMenu()

    endif

wend

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Hab aber kein Ventana principal, brauche el Diálogo, bevor el %HWnd erstellt se

.
Auf el Diálogo liegt una Button, y si dieser geklickt se, voluntad Yo el Trackmenü...

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

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Algo como?
Kompilieren Marca Separación

windowStyle 2048
cls
userMessages 123,16// wm_contextMenu,wm_close
var w&=create("dialog",%hWnd,"Huhu",10,10,100,100)

while 1

    waitinput

    select %uMessage

        caseof 123

        createMenu
        appendMenu 100,"oi"

        select trackMenu()

            caseof 100 : break

        endSelect

        caseof 16

        break

    endSelect

wend

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

So gehts, y como Yo 'nen Button abfrage (en lugar de el rechten Botón del ratón) costumbre Todavía nichtmal irgendwelche Messages "verbiegen".

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

29.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita