Question

vfp 文本框 焦点

写了个程序，现在想让text1文本框在打开的时候获得焦点。
form1的activate里这样写
thisform.text1.SetFocus
并将form1的showwindos设置为2
_Screen.Visible=.F.

但打开程序时整个窗体都没有获得焦点。
2个方法都试了，还是不行

Answer 1

将代码写在form1的init事件中试试

Answer 2

在表单init事件中加入下列代码：
set notify off
Public M_Flag

在text的KeyPress事件中加入如下代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=127

Answer 3

在表单init事件中加入下列代码：
set notify off
Public M_Flag

在text的KeyPress事件中加入如下代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=127 &&退格键的ASCII码
M_FLAG=.T.
ELSE
M_FLAG=.F.
ENDIF

在text的Valid事件中加入如下代码：
IF M_FLAG
RETURN .F.
ENDIF