在FoxPro中利用热键设置动态帮助功能

Author: 北京王国红 Date: 1996-12-13

        下面示意性地给出一个范例结构，供用户参考。在主程序中包含下列语句：
        set fullpath off
        on key label F1 do myhelp with program(),varread()
        define window help from 13,4 to 20,51 color scheme 5
        程序中设置F1为帮助热键，myhelp为帮助主过程，help为帮助信息显示窗口。
        procedure myhelp
        parameters mypro,myvar
        active window help
        do case
        case mypro='PRO1'&&假设PRO1为某一程序名称
        do case
        case myvar='VAR1'   &&假设VAR1为某一变量名称
        do HelpProForVar1   &&执行相应的帮助文件
        case myvar='VAR2'
        …   &&程序省略
        endcase
        case mypro='PRO2'
        …   &&程序省略
        endcase
        wait "请按任意键继续" window
        deac window help
        return
        procedure HelpPro1ForVar1
        @1,1 say "帮助信息如下所示"
        …   &&程序省略
        return
        用户参照此范例结构，举一反三，便可设计出灵活地适应自己程序结构和用户需求的动态帮助信息。(北京   王国红)