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 endifand then in the queryunload....
if thisform.lCutPaste release popup (thisform.cCutPasteMenuName) extended endifYou'll need to create the .lCutPaste property :-)