[*]Profan

Français

E.T.

so comment sur einem per cls ou bien Fenêtre x,y geöffnetem la fenêtre, pourrait Trackmenu sur avec @Créer("Window",... ou bien @Créer("Dialog",... erzeugten la fenêtre marcher ???

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 citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Quelque chose comme?
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Schauma dis täts doch:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

Hab mais ne...aucune Hauptfenster, brauche den Dialog, bevor cela %HWnd erstellt wird

.
sur dem Dialog liegt un Button, et si cette geklickt wird, veux je cela 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 citation

Absatzweise Citation Zeilenweise Citation

Quelque chose comme?
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

So gehts, et là je 'nen Button abfrage (statt qui rechten Bouton de la souris) coutume je encore 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 citation

Absatzweise Citation Zeilenweise Citation