General information
Category:
Coding, syntax & commands
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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only