Hi Nadya,
I can't think of a way :-)


>David,
>
>>Now I see. The code I posted was from an untested update of my framework. The original had no reference at all to ccutpastemenu. So
>>DEFINE POPUP _medit MARGIN RELATIVE
>>DEFINE BAR _med_cut OF _medit
>>etc
>
>Is it possible to check if popup menu already exists?
>
>>My later, untested, code was attempting to avoid the redeclaration problem in multiple forms.
>>
>>David
>>
>>>I just want to clarify/verify:
>>>
>>>Should the DEFINE's be
>>>
>>>DEFINE BAR _med_cut OF _medit
>>>
>>>or should they be
>>>
>>>DEFINE BAR _med_cut OF (thisform.cCutPasteMenuName)
>>>
>>>?
>>>
>>>Thanks,
>>>Joe
>>>
>>>
>>>
>>>>You can use a hidden menu...
>>>>In the load event of your form

>>>>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 :-)
>>>>The sys(2015) prevents conflicts between forms
>>>>
>>>>
>>>>>How do you allow a user to copy, cut and paste within an application. I don't want to put an edit selection in my menu. I just want to be able to use the shortcut keys as you would in any other type of software.
>>>>>
>>>>>Thanks,
>>>>>Tyler