在Window的Resize事件中加入:
//申请系统环境变量
environment lenv
long ll_width,ll_height
//取得系统环境信息
if getenvironment(lenv) = -1 then
// messagebox('错误','获取屏幕信息出错!')
else
//取得当前屏幕的尺寸,并调整窗口位置,使之居中
ll_height = PixelsToUnits(lenv.screenheight,YPixelsToUnits!)
ll_width = PixelsToUnits(lenv.screenwidth,XPixelsToUnits!)
this.y = (ll_height - this.height)/2
this.x = (ll_width - this.width)/2
end if