** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 名称：WAIT信息屏幕居中 函数
* 作者：宋**
* 公司：SYRSOFT(R) 上海 中国
* 声明：版权所有(C)宋** 保留所有权利
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 语法 MsgCent(cExpression [,nModel])
* 参数 
* cExpression
* 指定要显示的自定义信息。若省略cExpression参数，则显示“按任
* 意键继续...”默认信息。若cExpression参数为空字符串，则不显示
* 信息，直到按某个键才结束等待，继续执行程序。
* nModel
* 指定显示框模式。若省略nModel参数，则为默认模式；1 指定在显示
* 信息后，立即继续执行程序，且WAIT信息窗口保留在VisualFox\0Pro主
* 窗口中，直到发布WAIT CLEAR或另一条命令WAIT WINDOW。
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
Function MsgCent
Parameters cMessageText,nModel
if type('cMessageText')#'C'
    cMessageText='按任意键继续...'
endif
if type('nModel')#'N'
    nModel=0
else
    if between(nModel,0,1)=.F.
        nModel=0
    endif
endif
do case
    case nModel=0
        wait window cMessageText at srow()/2,(scols()-len(cMessageText))/2
    case nModel=1
        wait window cMessageText at srow()/2,(scols()-len(cMessageText))/2 noclear nowait
endcase
EndFunc

来源：http://www.mzvfp.com/read.php?tid=47001