Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/menus/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/menus/dynamic.mnt

!_MSYSTEM�PROCEDURE takeaction(cPrompt)
#DEFINE MSG_LOC 'You chose ' 
		
IF cPrompt = "Release this menu"
	RELEASE PAD dynmenu of _MSYSMENU
ELSE
	WAIT WINDOW MSG_LOC + cPrompt + "." TIMEOUT 1
ENDIF	_MSYSMENUdynmenuDynamic \<Items
DynamicIte*DO takeaction IN dynamic.mpr WITH PROMPT()