回复 14楼 吹水佬
* 改为下面,将有其他问题
* 测试时,先不要在Text1输入数据,在Text2或者Text3中输入数据,然后再回来Text1输入数据
* 我的测试结果,Text2,Text3会看不见了.
DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG
#DEFINE MY_MSG
0x401
of = CREATEOBJECT("form1")
of.show(1)
RETURN
DEFINE CLASS form1 as Form
ADD OBJECT text1 as textbox WITH left=10,top=10,SelectOnEntry=1
ADD OBJECT text2 as textbox WITH left=10,top=40
ADD OBJECT text2 as textbox WITH left=10,top=70 &&增加1个
PROCEDURE init
BINDEVENT(this.hWnd, MY_MSG, this, "myMsg")
ENDPROC
PROCEDURE myMsg(hWnd, uMsg, wParam, lParam)
this.text1.setfocus
ENDPROC
PROCEDURE text1.lostfocus
*
thisform.text2.value = thisform.text1.value
PostMessage(thisform.hWnd, MY_MSG, 0, 0)
ENDPROC
ENDDEFINE