XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
freies PopUp-Menü erstellen
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie ein freies PopUp-Menü durch Klick
mit der rechten Maustaste erstellt werden kann.
Es bedeuten:
------------
e%         Integervariable zur Prüfung, ob das Programm beendet werden soll
declare e%

PROC MPUNKT

    Parameters nr$              der dieser Prozedur übergebene String-Parameter
    declare msg$
    let msg$=Menüpunkt  + nr$ +  ausgewählt!
    MessageBox(msg$,I N F O,64)

ENDPROC

WindowStyle 48
WindowTitle Klicke mit der rechten Maustaste ...
cls rgb(0,0,0)
clear e%

whilenot e%

    WaitInPut

    if equ(%MouseKey,2)     wenn die rechte Maustaste gedrückt wurde

        CreateMenu             erzeuge ein Menü
        AppendMenu 101,Menüpunkt 1   füge dem Menü einen Menüeintrag hinzu und lege sein Handle mit 102 fest ...
        AppendMenu 102,Menüpunkt 2
        AppendMenu 103,Menüpunkt 3
        Separator                      dem Menü füge eine Trennlinie hinzu
        AppendMenu 109,Beenden
        TrackMenu %MouseX,%MouseY       erzeuge das Menü an der aktuellen Mausposition

        if Menuitem(101)                wenn der Menüpunkt mit dem Handle 101 aktiviert wurde ...

            MPUNKT 1                    führe die PROC MPUNKT aus, nachdem ihr der Parameter 1 übergeben worden ist

        elseif Menuitem(102)

            MPUNKT 2

        elseif Menuitem(103)

            MPUNKT 3

        elseif Menuitem(109)

            e% = 1

        endif

    endif

wend

 href='./../../function-references/XProfan/end/'>end