robot对DELPHI中GRID控件的识别问题

Result = SQAGetProperty("Name=;Type=CustomGrid;Index=1", "Text", VAR)

GenericObject Click, "Name=DBGrid1;Type=CustomGrid", "Coords=338,26"

if Result = 0 then

MsgBox "Hello"

End if

GenericObject Click, "Name=DBGrid1;Type=CustomGrid", "Coords=338,26"

''''Window CloseWin, "", ""

End Sub

虽然赋值成功，但是datagrid无法显示你需要的数据（这里需要研究一下），因为时间的缘故，就用第二种方式坐标的方式来实现，考虑多平台共享使用，写SetGridFocus函数，思路这样得到tdbgrid对象，得到其中column的属性宽高，计算坐标（这些都在函数内部实现），其中移动有个固定值24是追踪tdbgrid代码中defaultHeight属性为24

最后代码如下：

Sub SetGridFocus(strObject as String, strCol as String, strRow as String, strValue as String)

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!