3

我正在尝试通过 VBScript(用于测试自动化)为我们的 Delphi 应用程序单击 TTabSet 选项卡,但在不使用页面坐标的情况下很难这样做。有没有人有使用这个选项卡类的经验?

使用 TestComplete 的 Object Spy,我可以查看每个选项卡的 RTTI - TabIndex,但我似乎无法将它传递给 clicktab 方法来选择它(TestComplete 报告它找不到选项卡并且存在 0 个项目的错误)。

我问过创建 TestComplete 的人,他们说 TTabSet 不是受支持的选项卡控件,但有人建议我也许可以使用 TTabSet 的一些本机方法让它为我工作。

有任何想法吗?

4

1 回答 1

1

TabIndex是读写的,所以你可以这样做:

tabSetObj.TabIndex = 2   ' Select tab with index 2

根据文档,效果应该与您实际单击该选项卡一样:

当为 TabIndex 分配一个值时,将发生选项卡集的 OnClick 事件,然后是 OnChange 事件,就像用户单击了一个新选项卡一样。

于 2011-08-03T06:47:38.483 回答