回复 4楼 zhken
简单示例,看是不是这意思。
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
****** test.prg ******
ON ERROR do onerr
of1 = CREATEOBJECT("form1")
of1.show
RETURN
DEFINE CLASS form1 as Form
WindowType = 1
PROCEDURE init
of2 = CREATEOBJECT("form2")
of2.show
ENDPROC
ENDDEFINE
DEFINE CLASS form2 as Form
top = 50
left = 50
WindowType = 1
PROCEDURE init
of3 = CREATEOBJECT("form3")
of3.show
ENDPROC
ENDDEFINE
DEFINE CLASS form3 as Form
top = 100
left = 100
WindowType = 1
ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,caption="test"
PROCEDURE cmd1.click
a = b
ENDPROC
ENDDEFINE
PROCEDURE onerr
?
FOR i=1 TO ASTACKINFO(arr)
?arr[i,3]
ENDFOR
ENDPROC