Hi Fred,

That is strange I created a simple form and made it a modal and none of the options became available. In the INIT() entered this code: PUSH MENU _MSYSMENU and in the GotFocus() entered this code: DO Test.Mpr and in the Destroy() entered POP MENU _MSYSMENU.

Below is the code of the TEST.MPR file.
The only way it works if I entered the DO Test.mpr in the Paint() method, but that is a bad choice, since it is fired all the time

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0pc1bczsm OF _MSYSMENU PROMPT "File" COLOR SCHEME 3 ;
KEY ALT+F, ""
DEFINE PAD _0pc1bczsn OF _MSYSMENU PROMPT "Help" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _0pc1bczsm OF _MSYSMENU ACTIVATE POPUP file
ON PAD _0pc1bczsn OF _MSYSMENU ACTIVATE POPUP help

DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF file PROMPT "Close"
DEFINE BAR 2 OF file PROMPT "\ON SELECTION BAR 1 OF file _Screen.ActiveForm.Release()
ON SELECTION BAR 2 OF file ;
DO _0pc1bczsw ;
IN LOCFILE("VREP\TEST" ,"MPX;MPR|FXP;PRG" ,"WHERE is TEST?")

DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF help PROMPT "About"
DEFINE BAR 2 OF help PROMPT "Help"
ON SELECTION BAR 1 OF help DO FORM About.SCX
ON SELECTION BAR 2 OF help Help

Also tested it under VFP6 and VFP7 and got the same results.
What else is there?

Regards,

Doron

>Wow, talk about a blast from the past! (18 months since that post)
>
>I've since found a better place for the menu.
>
>In your Form.Init:
>PUSH MENU _MSYSMENU
>
>In your Form.GotFocus:
>DO yourmenu.mpr
>
>In your Form.Destroy:
>POP MENU _MSYSMENU
>
>This should work, and doesn't require a flag for the menu activation. The
>Paint method should work, but Paint get's fired off for many reasons (one of
>which is if you're current field has a blinking cursor!).
>
>
>>Hi Fred,
>>
>>I tried to do what you suggested and it did not work for me.
>>I have one main model form and entered the 2 lines in the GotFocus method and the menu options still were not available. I tried that either in VFP 6 or VFP 7. This main form is called from the main prg.
>>
>>PUSH MENU _msysmenu
>>DO modal.mpr
>>
>>Also the other suggestion worked if I let the Paint method to be fired all the time without the IF NOT this.lMenuDone.
>>
>>Any ideas?
>>
>>Regards,
>>
>>Doron
>>
>>
>>
>>>>>
>>>>>Add a property called lMenuDone to your modal form. This code in the form's Paint method:
>>>>>
>>>>>

>>>>>IF NOT This.lMenuDone
>>>>>   PUSH MENU _MSYSMENU
>>>>>   This.lMenuDone = .T.
>>>>>   DO MyMenu.prg
>>>>>   DO MyMenu.prg
>>>>>ENDIF
>>>>>

>>>>>
>>>>>Then you can issue a POP MENU in the form's Unload.
>>>>
>>>>Marcia,
>>>>
>>>>why i must run
>>>>
>>>>DO MyMenu.prg
>>>>
>>>>twice?
>>>>
>>>>One line seems to be sufficient.
>>>>Is it possible to use vfp standard _msysmenu (e.q.standard copy, edit,paste pads) ? I do'nt want to define new menu of each modal form.
>>>>
>>>>It it possible to run this code in some other event than paint (Load event)?
>>>>I haven't never used paint.
>>>
>>>You can put in your Form's GotFocus:
>>>

>>>PUSH MENU _msysmenu
>>>DO modal.mpr
>>>

>>>and in your Form's Unload:
>>>

>>>POP MENU _msysmenu
>>>