Information générale
Catégorie:
Codage, syntaxe et commandes
Thanks everyone for your help. I finally got it to work. I did have set sysmenu off in my code. Here is the code that worked.
Load
if thisform.lCutPaste
* allow edit controls without a menu
DEFINE POPUP _medit 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 _medit extended
endif
Thanks again,
Tyler
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement