XProfan

Français

Jac
de
Lad

comment um alles dans qui monde ermittel je cela Handle eines Popupmenüs, le moi avec TrackMenu anzeige (um anschließend un Item per CheckMenuItem trop checken?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

25.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Jack...

Selbst erstellen?
Kompilieren Marque Séparation

Windowstyle 31+512
Windowtitle "Trackmenü mit Checkfunktion über API"
Window 0,0-640,440
DEF @CreatePopupMenu(0) !"USER32","CreatePopupMenu"
DEF @AppendMenuEx(4) !"USER32","AppendMenuA"
DEF @TrackPopupMenu(7) !"USER32","TrackPopupMenu"
DEF @CheckMenuItem(3) !"USER32","CheckMenuItem"
Def @DestroyMenu(1) !"USER32","DestroyMenu"
Declare Checkmerker%
Declare Menuhandle&,ITEM$
Das Menü wird erzeugt
LET Menuhandle&=@CreatePopupMenu()
LET Item$="&Messagebox"
@AppendMenuEx(Menuhandle&,0,101,@ADDR(ITEM$))
LET Item$="&Check"
@AppendMenuEx(Menuhandle&,0,102,@ADDR(ITEM$))

While %Menuitem<>-2

    Waitinput

    IF @equ(%MouseKey,2) Rechte Maustaste gedrückt?

        @TrackPopupMenu(Menuhandle&,0,%mousex+5,%Mousey-10,0,%HWND,0) Menü wird angezeigt..

        IF @equ(%MENUITEM,102)

            LET CHECKMERKER%=@NOT(Checkmerker%) Zustandsänderung merken...
            @CheckMenuItem(Menuhandle&,102,@mul(Checkmerker%,8)) Ähnlich wie der Befehl Checkmenü!

        ELSEIF @equ(%MENUITEM,101)

            @Messagebox("Menüpunkt eins geklickt!","Hinweis",64)

        ENDIF

    endif

wend

@DestroyMenu(Menuhandle&) Speicher freigeben