用其他語言做的軟件,其TEXT、EDIT、COMBOX等都有右鍵功能, 即一按右鍵就會在其對象旁彈出一個這樣的菜單,惟獨VFP做的程序沒有,您說氣不氣人。
下面就是該功能實現(xiàn)的方法:
先介紹幾個需要用到常數(shù),這里所說的常數(shù),是系統(tǒng)默認(rèn)的常數(shù),也就是在編輯時會以藍(lán)色顯示的字符。
這些常數(shù)是:
常數(shù)名 所代表的含義
_med_undo "撤消(U)"
_med_cut "剪切(T)"
_med_copy "復(fù)制(C)"
_med_paste "粘貼(P)"
_med_clear "刪除(D)"
_med_slcta "全選(A)"
第一步我們在COMMAND窗口打:
MODIFY COMMAND remouse.prg
在編輯窗內(nèi)輸入如下內(nèi)容:
DEFINE POPUP popRight SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF popRight PROMPT "撤消(\ DEFINE BAR 2 OF popRight PROMPT "\-"
DEFINE BAR _med_cut OF popRight PROMPT "剪切(\ DEFINE BAR _med_copy OF popRight PROMPT "復(fù)制(\ DEFINE BAR _med_paste OF popRight PROMPT "粘貼(\
下面就是該功能實現(xiàn)的方法:
先介紹幾個需要用到常數(shù),這里所說的常數(shù),是系統(tǒng)默認(rèn)的常數(shù),也就是在編輯時會以藍(lán)色顯示的字符。
這些常數(shù)是:
常數(shù)名 所代表的含義
_med_undo "撤消(U)"
_med_cut "剪切(T)"
_med_copy "復(fù)制(C)"
_med_paste "粘貼(P)"
_med_clear "刪除(D)"
_med_slcta "全選(A)"
第一步我們在COMMAND窗口打:
MODIFY COMMAND remouse.prg
在編輯窗內(nèi)輸入如下內(nèi)容:
DEFINE POPUP popRight SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF popRight PROMPT "撤消(\ DEFINE BAR 2 OF popRight PROMPT "\-"
DEFINE BAR _med_cut OF popRight PROMPT "剪切(\
DEFINE BAR _med_clear OF popRight PROMPT "刪除(\
DEFINE BAR _med_slcta OF popRight PROMPT "全選(\ ACTIVATE POPUP popRight
存盤退出。
這樣我們就建立了一個名為remouse.prg的文件。
接下來我們就可在需要右鍵功能對象的RinhtClick事件里寫入:
do remouse
好了,我們的程序也有右鍵功能了,就這么簡單,不信您試試。
這個方法不足的是,必須在每個需要右鍵功能的對象里都寫上:do remouse這一句,但比起借用外部程序來達(dá)到這個目的,我覺得還是這個方法好。