function int SetMenuDefaultItem ( ulong menuhandle, uint item, uint bypos )Library "user32.dll"
function ulong GetSubMenu ( ulong menuhandle, int itempos ) Library "user32.dll"
function int DrawMenuBar ( ulong menuhandle ) Library "user32.dll"
function int TrackPopupMenuEx ( ulong menuhandle, uint flags, int x, int y, ulong windowhandle, long lptpm ) Library "user32.dll"

// в окне - на правый клик
m_mymenu	lm_menu
integer	li_rc
uint		lui_bypos, lui_item
ulong		lul_parent, lul_handle

lm_menu = this.menuid
//The parent menu item has to be visible for this to work
lm_menu.m_file.m_popup.visible = TRUE

lul_parent = Handle ( lm_menu.m_file )
lul_handle = GetSubMenu ( lul_parent,  0  )  
lul_handle = GetSubMenu ( lul_handle,  4  )  
lui_item = this.Object.defaultmenuitem [  1  ]
lui_bypos =  1 
li_rc = SetMenuDefaultItem ( lul_handle, lui_item, lui_bypos )

li_rc = DrawMenuBar ( lul_parent )
//так просто нельзя
//lm_menu.m_file.m_popup.PopMenu ( parent.PointerX(), parent.PointerY() )
li_rc = TrackPopupMenuEx ( lul_handle,  0 , &
	UnitsToPixels ( WorkSpaceX() + parent.PointerX(), XUnitsToPixels! ), &
	UnitsToPixels ( WorkSpaceY() + parent.PointerY(), YUnitsToPixels! ), Handle ( parent ),  0  )