>Hi Fred,
>
>Yes it is working when there is a simple form with no ActiveX on top of it.
>I am using a List Tree control and had to add a timer to make it work.
>

You made no mention of an ActiveX control (or I missed it). BTW, it works for me with a TreeView control, too. What version of VFP are you using?



>Within the timer() method entered the below code.
>DO MyMenu.mpr
>This.Enabled=.F.
>
>
>I also set the Interval to 20 at development mode
>
>Regards,
>
>Doron
>
>>I just tried this again in VFP7/SP1 to be sure.
>>
>>In your modal form's Init:
>>

PUSH MENU _MSYSMENU

>>
>>In your modal form's Destroy:
>>

POP MENU _MSYSMENU

>>
>>In your modal form's GotFocus:
>>

DO yourmenu.mpr

>>
>>That's it, nothing special anywhere else.
>>
>>
>>
>>>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
>>>>>>