*!* MyMenuTest.PRG LOCAL loForm AS FORM loForm = NEWOBJECT('MyMenuForm') loForm.SHOW() READ EVENTS DEFINE CLASS MyMenuForm AS FORM CAPTION = "My Menu Form" SHOWWINDOW = 2 WINDOWTYPE = 1 PROCEDURE INIT DO MyMenu.mpr WITH THIS,.T.,.T. ENDPROC PROCEDURE QUERYUNLOAD CLEAR EVENTS ENDPROC ENDDEFINE *!* How-to *!* 1. CREATE MENU MyMenu *!* 2. Select Edit | View... | General Options, and check Top-Level Form *!* 3. Select Menu | Generate... *!* 4. MODI COMM MyMenu.MPR *!* 5. Read the header comments for instructions on doing a menu in a Top-Level Form PROCEDURE ShowMenu LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9 DEFINE MENU (m.cMenuName) IN (m.oFormRef.NAME) BAR DEFINE PAD _0sm0jjcel OF (m.cMenuName) PROMPT "MyMenuPad" COLOR SCHEME 3 ; KEY ALT+M, "" ACTIVATE MENU (m.cMenuName) NOWAIT IF m.cTypeParm2 = "C" m.getMenuName = m.cMenuName m.oFormRef.NAME = m.cSaveFormName ENDIF ENDPROC