1

我正在尝试改进包含 TElTreeView 类的第三方 Delphi 树的脚本。我可以在 ElTree1 对象中找到我想要单击并展开的指定项目，但我似乎无法通过 TC 脚本通过其索引值访问它。我需要检查、扩展该项目并相应地设置它下面的几个子项目。

如果我只是执行以下操作...

w := p.frmOpts;
tvw := w.VCLObject('ElTree1');
tvw.Selected.Checked := true;

...然后将检查打开窗口时默认突出显示的行项目。我已经尝试了很多其他的东西，但到目前为止还没有运气。我试图避免使用 Sys.Keys。

有任何想法吗？

谢谢！

4

1 回答 1

2

您需要使用调试信息编译您的应用程序，以便TestComplete的调试信息代理可以为该工具提供对所有本机方法和控件属性的访问。一旦 TestComplete 可以找到调试信息，您就可以通过以下方式访问树项：

procedure Test;
  ...
  w := p.frmOpts;
  tvw := w.VCLObject('ElTree1');
  tvw.Items.Item(1).Checked := true;
end;

在调试信息代理帮助主题中查找有关如何使用 TestComplete 的调试信息正确编译 Delphi 应用程序的详细信息。单击与您的 Delphi 版本对应的链接以获取步骤。

此外，您可以在此调查中投票支持在未来版本的 TestComplete 中为您的控件提供高级支持。

更新：

尽管 TestComplete 没有像其他一些广泛使用的树视图控件那样对TElTreeView控件提供扩展支持，但可以创建脚本例程以在高级别的控件上工作。这些例程将使用 TestComplete 的 Open Application 功能通过其本机方法和属性与树控件一起使用。下面的示例脚本演示了如何做到这一点。

function getTreeNode(tree, nodeName); forward;
function clickTreeNode(tree, node); forward;

procedure test;
var
  tree;
  nodeName;
  node;
begin
  tree := Sys.Process('ElTreeTest').VCLObject('Form1').VCLObject('ElPanel1').VCLObject('ElTree1');
  nodeName := 'Item B|Item BB|Item BBA';
  node := getTreeNode(tree, nodeName);
  if node <> nil then
    Log.Message(node.Caption)
  else
  begin
    Log.Error('Node "' + nodeName + '" not found');
    Runner.Stop;
  end;

  node.MakeVisible;
  node.Checked := not node.Checked;
  clickTreeNode(tree, node);
end;

function clickTreeNode(tree, node);
var
  x, y;
begin
  node.MakeVisible;
  x := (node.TextRect.Left + node.TextRect.Right) / 2;
  y := (node.TextRect.Top + node.TextRect.Bottom) / 2;
  tree.Click(x, y);
end;

function getTreeChildNode(rootNode, nodeName);
var
  i;
  item;
  nodeCaption;
begin
  result := nil;
  if rootNode = nil then
    exit;

  nodeCaption := aqString.GetListItem(nodeName, 0);

  for i := 0 to rootNode.ChildrenCount - 1 do
  begin
    item := rootNode.Children(i);
    if item.Caption = nodeCaption then
    begin
      result := item;
      break;
    end;
  end;

  if aqString.GetListLength(nodeName) > 1 then
    result := getTreeChildNode(result, aqString.DeleteListItem(nodeName, 0));
end;

function getTreeNode(tree, nodeName);
var
  rootNodeCaption;
  item;
  i;
begin
  aqString.ListSeparator := '|';
  rootNodeCaption := aqString.GetListItem(nodeName, 0);
  result := nil;

  for i := 0 to tree.Items.Count - 1 do
  begin
    item := tree.Items.Item(i);
    if item.Parent = nil then
    begin
      if item.Caption = rootNodeCaption then
      begin
        result := item;
        break;
      end;
    end;
  end;

  if aqString.GetListLength(nodeName) > 1 then
    result := getTreeChildNode(result, aqString.DeleteListItem(nodeName, 0));
end;
于 2012-04-13T16:16:51.563 回答