XProfan

 {$cleq}
cls
print myTrackMenu(hWnd)
waitinput
end

nProc myTrackMenu(long wnd){

    long menu=createPopupMenu()
    appendMenu(menu,,101,"Eintrag &hinzufügen")
    appendMenu(menu,,102,"Eintrag &entfernen")
    setForegroundWindow(wnd)
    long mPos=dim(8)
    getCursorPos(mPos)
    long rt=trackPopupMenu(menu,tpm_returnCmd | tpm_rightButton,long(mPos,),long(mPos,4),,wnd,)
    dispose(mPos)
    destroyMenu(menu)
    postMessage(wnd,wm_null,,)
    return rt

000FF>}