以下是引用吹水佬在2020-7-24 21:01:00的发言：

在lostfocus里写了this.setfocus，会离不开text1

以下是引用吹水佬在2020-7-24 20:56:14的发言：

text1的lostfocus里调用完了还会回到lostfocus里最后离开text1

以下是引用瓜瓜1990在2020-7-24 22:41:35的发言：

在text控件的lostfocus事件里写this.setfocus,焦点仍会离开
在valid事件里输入return 0,可以不让焦点离开.

以下是引用zhken在2020-7-24 23:04:10的发言：

看一下tab顺序，可以将text1和command设为相邻的顺序，command顺序为后，如有必要，在command的getfocus写上thisform.text1.setsocus确保万无一失

以下是引用吹水佬在2020-7-25 09:05:14的发言：

在lostfocus里处理完事务后发个异步消息，在消息处理过程执行text1.setfocus应该可以

以下是引用吹水佬在2020-7-25 16:14:05的发言：

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
    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

以下是引用吹水佬在2020-7-25 19:52:29的发言：

静态设计form一样
在表单设计器自定义方法myMsg（菜单--表单--新建方法程序）

以下是引用sdta在2020-7-25 18:30:55的发言：

类浏览器中转换