文本框 LostFocus 事件代码
NoDefault
Rreturn
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT text1 AS textbox WITH ;
Height = 20, ;
Left = 72, ;
Top = 36, ;
Width = 100, ;
...
比如我在编辑状态,点中一个数字文本框左边部分,然后回车,文本框的内容清空了,我觉得不应该被清空才对啊,这样很容易出错的。
比如123.5678 我点到2后面回车,就变成12了,我觉得我只是点了一下回车,内容应该不变才对。怎么设置?
解决方法
文本框的 KeyPress 事件加代码:
If nKeyCode=13
Nodefault
KEYBOARD '{TAB}'
Endif