hmmmm...
The original code worked fine. You've made the popup name fixed rather than variable but unless your running multiple forms that should be a problem.
The original code I sent works fine in all of my systems, including top level forms. Maybe you have set sysmenu off??


>Thanks David,
>
>I haven't been able to get your idea to work yet. I kept getting property cCutPasteMenuName not found error so this is the code I have been using. The shortcut keys don't seem to be doing anything.
>
>Form Load
>
>if thisform.lCutPaste
> * allow edit controls without a menu
> DEFINE POPUP cCutPasteMenu RELATIVE
> DEFINE BAR _med_undo OF _medit PROMPT "Undo" ;
> KEY CTRL+Z
> DEFINE BAR _med_redo OF _medit PROMPT "Redo" ;
> KEY CTRL+R
> DEFINE BAR _med_cut OF _medit PROMPT "Cut" ;
> KEY CTRL+X
> DEFINE BAR _med_copy OF _medit PROMPT "Copy" ;
> KEY CTRL+C
> DEFINE BAR _med_paste OF _medit PROMPT "Paste" ;
> KEY CTRL+V
> DEFINE BAR _med_slcta OF _medit PROMPT "Select All" ;
> KEY CTRL+A
>endif
>
>
>QueryUnload
>
>if thisform.lCutPaste
> release popup CutPasteMenu extended
>endif
>
>
>Any more suggestions,
>Tyler