LPARAMETERS loTextBox
LOCAL loForm AS Form

loForm = THISFORM
DEFINE POPUP tdk_menu SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR  1  OF tdk_menu PROMPT "Добавить № для типа документов" ;
	PICTURE "bitmaps\new.bmp"
DEFINE BAR  2  OF tdk_menu PROMPT "Удалить № для типа документов" ;
	SKIP FOR EOF("ListNDok") ;
	PICTURE "bitmaps\delete.bmp"
DEFINE BAR  3  OF tdk_menu PROMPT "Редактировать № для типа документов" ;
	SKIP FOR EOF("ListNDok") ;
	PICTURE "bitmaps\wzedit.bmp"

ON SELECTION BAR  1  OF tdk_menu loForm.NDokAdd()
ON SELECTION BAR  2  OF tdk_menu loForm.NDokDel()
ON SELECTION BAR  3  OF tdk_menu loForm.NDokEdit()

ACTIVATE POPUP tdk_menu
RELEASE POPUPS tdk_menu