怎么引用另一个创建的控件的属性?
程序代码:
&&百钱买百鸡.prg &&_screen.Visible= .F. formHeight=280 formWidth=375 objForm=CREATEOBJECT("fm1") objForm.show READ EVENTS DEFINE CLASS fm1 as Form windowType=1 showWindow=2 Desktop=.t. autoCenter=.t. caption="百钱买百鸡(举解法)" height=formHeight width=formWidth minHeight=280 minWidth=375 ADD OBJECT cmdExit as myCmd1 WITH top=formHeight-5-25,left=formWidth-5-85 ADD OBJECT pageFrame1 as myPf WITH top=5,left=5 PROCEDURE UnLoad CLEAR EVENTS ENDPROC *!* PROCEDURE resize *!* && *!* ENDPROC ENDDEFINE DEFINE CLASS myPf as PageFrame visible=.t. &&pageCount=2 height=formHeight-10-25 width=formWidth-5 anchor=15 ADD OBJECT page1 as myPage1 ADD OBJECT page2 as myPage2 ENDDEFINE DEFINE CLASS myPage1 as Page visible=.t. caption="问题描述" ADD OBJECT p1Lbl1 as qdLbl WITH top=15,left=10,caption="百钱买百鸡,"+CHR(13)+"公鸡、母鸡、小鸡都要买,各能几只?" ADD OBJECT p1Lbl2 as qdLbl WITH top=45,left=10,caption="铜钱一百" ADD OBJECT p1Lbl3 as qdLbl WITH top=75,left=10,caption="公鸡一只五钱" ADD OBJECT p1Lbl4 as qdLbl WITH top=105,left=10,caption="母鸡一只三钱" ADD OBJECT p1Lbl5 as qdLbl WITH top=135,left=10,caption="小鸡三只一钱" ENDDEFINE DEFINE CLASS qdLbl as Label fontsize=10 autoSize=.t. ENDDEFINE DEFINE CLASS myPage2 as Page visible=.t. caption="解答" ADD OBJECT p2Edit as qaEdit WITH top=5,left=5,anchor=15 ENDDEFINE DEFINE CLASS qaEdit as EditBox visible=.t. readOnly=.t. myHeight=thisform.myPf.height/4 &&??这里怎么算? Width=thisform.pageFrame1.width-10 text="解答说明" ENDDEFINE DEFINE CLASS myCmd1 as CommandButton visible=.t. caption="退出" height=25 width=85 anchor=12 PROCEDURE click thisform.release ENDPROC ENDDEFINE
想在page2中创建一个可以显示多行文本的编辑框,宽度是页框-10,高度是页框的四分之一,会随窗口放大而变大
编辑框下面放一个表格,位置top,页框高-10再减编辑框高度, 高度是页框的四分之一,会随窗口放大而变大