怎样使鼠标不离开当前的GRID?

[fionazou]

怎样使鼠标不离开当前的GRID?

[十豆三]

表单的 Init 事件加代码
This.Grid1.SetFocus()

Grid1 的 Valid 事件加代码
Return 0

[都市夜猫]

用 api 函数 ClipCursor 可以限制鼠标只在一个矩形范围内移动，但鼠标光标是系统共享资源，你的用户不会用砖头砸你吧？

[fionazou]

我在grid的column3的text1的valid里写了 如下的语句:
IF ppeinstupd.itemkind='参数' and !EMPTY(this.VALUE) and TYPE(this.VALUE)<>'N'
MESSAGEBOX('不是数值型，请重新输入数值型，或空值！')
retu .F.
else
this.value=alltrim(this.value)
ENDIF
当鼠标不离开grid时上面的语句有效,可是当鼠标离开了grid后,上面的语句就无效了,请问这是为什么?

[十豆三]

要不在 Grid 外用文本框来输入并校验吧。直接在 Grid 中也不安全。