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

字號(hào):

用其他語(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 "撤消(\    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
    存盤退出。
    這樣我們就建立了一個(gè)名為remouse.prg的文件。
    接下來(lái)我們就可在需要右鍵功能對(duì)象的RinhtClick事件里寫入:
    do remouse
    好了,我們的程序也有右鍵功能了,就這么簡(jiǎn)單,不信您試試。
    這個(gè)方法不足的是,必須在每個(gè)需要右鍵功能的對(duì)象里都寫上:do remouse這一句,但比起借用外部程序來(lái)達(dá)到這個(gè)目的,我覺(jué)得還是這個(gè)方法好。