作者: boing  

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

第一步我們?cè)贑OMMAND窗口打：
MODIFY COMMAND remouse.prg

在編輯窗內(nèi)輸入如下內(nèi)容：  
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 "復(fù)制(\<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

存盤退出。

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

do remouse

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