动态设置窗口的高度,不就好了?
窗口AfterLoad事件,写代码
If e.Form.height >= SysInfo.WorkingAreaHeight Then e.Form.baseform.height = 500 \'SysInfo.WorkingAreaHeightEnd If