>>if thisform.lCutPaste >> * allow edit controls without a menu >> thisform.AddProperty(cCutPasteMenuName, SYS(2015)) >> DEFINE POPUP (thisform.cCutPasteMenuName) 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 >>>>and then in the queryunload....
>>if thisform.lCutPaste >> release popup (thisform.cCutPasteMenuName) extended >>endif >>>>You'll need to create the .lCutPaste property :-)