表单是系统与用户交互的界面,但表单及表单内控件属性设置比较烦琐。因此,考虑通过编写代码的方式自动设置相关参数,提高重用率。经过多次实验,在表单初始化和尺寸发生改变两个地方添加代码,可以达到比较好的效果。
一、表单初始化过程代码
*!*--------------------------------------------------------------------------
*!* 过程名称:Form1_Init &&表单初始化过程
*!*--------------------------------------------------------------------------
*!* 表单FORM1属性设置
WITH ThisForm
.Name="FORM1" &&引用对象的名称
.Caption="表单1" &&标题名称
.Width=800 &&表单宽度
.Height=450 &&表格高度
.WindowState=2 &&窗体窗口运行时刻最大化
.ShowTips=.T. &&显示提示文本信息
.MDIForm=.T. &&指定窗体为MDI(多文档界面)窗口
.Cmdgroup1.Top=-4 &&指定按钮组Cmdgroup1的顶部位置
.Cmdgroup1.Left=0 &&指定按钮组Cmdgroup1的左部位置
ENDWITH
&&表格Grd1属性设置
WITH thisform.Grd1
.ReadOnly=.T. &&指定表格内容为只读
.Width=790 &&指定表格的宽度
.height=405 &&指定表格的高度
.Top&