作者: boing  

用其他語言做的軟件，其TEXT、EDIT、COMBOX等都有右鍵功能， 即一按右鍵
就會在其對象旁彈出一個這樣的菜單（見右圖），  
惟獨VFP做的程序沒有，您說氣不氣人。
　　下面就是該功能實現的方法：
　　先介紹幾個需要用到常數，這里所說的常數，是系統默認的常數,也就是在編
輯時會以藍色顯示的字符。  
這些常數是：    
常數名 所代表的含義  
_med_undo "撤消(U)"  
_med_cut "剪切(T)"  
_med_copy "復制(C)"  
_med_paste "粘貼(P)"  
_med_clear "刪除(D)"  
_med_slcta "全選(A)"  

第一步我們在COMMAND窗口打：
MODIFY COMMAND remouse.prg

在編輯窗內輸入如下內容：  
DEFINE POPUP popRight SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF popRight PROMPT "撤消(\<U)"
DEFINE BAR 2 OF popRight PROMPT "\-"
DEFINE BAR _med_cut OF popRight PROMPT "剪切(\<T)"
DEFINE BAR _med_copy OF popRight PROMPT "復制(\<C)"
DEFINE BAR _med_paste OF popRight PROMPT "粘貼(\<P)"
DEFINE BAR _med_clear OF popRight PROMPT "刪除(\<D)"
DEFINE BAR 7 OF popRight PROMPT "\-"
DEFINE BAR _med_slcta OF popRight PROMPT "全選(\<S)"
ACTIVATE POPUP popRight

存盤退出。

　　這樣我們就建立了一個名為remouse.prg的文件。
　　接下來我們就可在需要右鍵功能對象的RinhtClick事件里寫入：

do remouse

好了，我們的程序也有右鍵功能了，就這么簡單，不信您試試。
　　這個方法唯一不足的是，必須在每個需要右鍵功能的對象里都寫上：
do remouse這一句，但比起借用外部程序來達到這個目的，我覺得還是
這個方法好。