[转帖]怎样让DW的列在点击时标题的边框由3D raise改为 3D lower？

阿辉

免费乐捐，感谢支持

1、首先定义Instance变量用于保存上次的点击对象，这样便可以恢复样式。
string is_objectname

2、在数据窗口中利用GetObjectAtPointer函数得到当前用户点击的对象，然后改变相应的样式，具体代码如下：

//数据窗口Clicked事件

String dwobjectname

//得到当前点击的对象
dwobjectname = this.GetObjectAtPointer()

//恢复上次点击对象的样式
if not isnull(is_objectname) and trim(is_objectname) <> "" then
dw_1.modify(is_objectname + ".border = 6")
end if

long ll_pos

//分别读取对象名称与行数
ll_pos = pos(dwobjectname,'~t')

is_objectname = left(dwobjectname,ll_pos - 1)

//如果用户点击文本，则返回。
if right(is_objectname,2) = "_t" then return

string ls_row

ls_row = right(dwobjectname,len(dwobjectname) - ll_pos)

//修改点击对象当前行的样式
dw_1.modify(is_objectname + ".border = '6~tIf(getrow()=" + ls_row + ",5,6)'")

本方法可以应用到别的风格设计上，如果用户使用别的方式切换焦点时，还必须在相应的实践中编程。