DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF shortcut PROMPT "COPY" ON SELECTION BAR 1 of shortcut _Screen.Activeform.GRABIT() ACTIVATE POPUP shortcutand the form's grabit method contains:
PRIVATE nCnt nCnt = THIS.lstSource.ListIndex _cliptext = ALLTRIM(THIS.lstSource.LIST(ncnt)) RETURNI use it to copy a value to the clipboard and then I jump to Adobe Acrobat and past the value into a field property. It works and I do not have the edit menu enabled or visible at all.
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF shortcut PROMPT "COPY" DEFINE BAR 2 OF shortcut PROMPT "PASTE" ON SELECTION BAR 1 of shortcut _Screen.ActiveForm.grabthis('oacordict.txtformfield') ON SELECTION BAR 2 OF shortcut _Screen.ActiveForm.pastethis('oacordict.txtformfield') ACTIVATE POPUP shortcut RETURN>I'm not sure, but I think that you have to have an edit menu enabled that contains the cut,copy, and paste options. If your menu has these options but is disabled, or you have no menu at all, copy and paste will not work. Check out Message #886627 or Message #892096 to see if these will offer a solution.