VFP輔導(dǎo):VFP右鍵功能

字號:

用其他語言做的軟件,其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 "粘貼(\    DEFINE BAR _med_clear OF popRight PROMPT "刪除(\    DEFINE BAR 7 OF popRight PROMPT "\-"
    DEFINE BAR _med_slcta OF popRight PROMPT "全選(\    ACTIVATE POPUP popRight
    存盤退出。
    這樣我們就建立了一個名為remouse.prg的文件。
    接下來我們就可在需要右鍵功能對象的RinhtClick事件里寫入:
    do remouse
    好了,我們的程序也有右鍵功能了,就這么簡單,不信您試試。
    這個方法不足的是,必須在每個需要右鍵功能的對象里都寫上:do remouse這一句,但比起借用外部程序來達(dá)到這個目的,我覺得還是這個方法好。