运行和初始化运行效果不一致**

aDragon · 发表于 2009-4-14 14:33:15

那你中这样的话，tn是TTreeNode，不是TTreeNodeEX，扩展后的节点你要自己写代码创建并加载，你这样取是取不到的

dynasty0628 · 发表于 2009-4-14 14:35:23

tn:= TreeView.Items.AddChild(nil,lQuery.FieldByName('FCONTENT').AsString);
tn.ImageIndex:= 1;
TTreeNodeEx(tn).SubMoudleID:= lQuery.FieldByName('FCODE').AsString;
上面是赋值的代码

问题是为什么不初始化运行，直接运行功能就没问题呢？

aDragon · 发表于 2009-4-14 14:45:30

直接运行功能与运行平台后，环境不同，以运行平台后为准！

dynasty0628 · 发表于 2009-4-14 14:55:27

我创建了之后怎么样才能把它加进TreeView里？

aDragon · 发表于 2009-4-14 15:05:40

你这样做吧，比较简单，就是节点还是用treenode，然后你定义一个类，派生于tobject，定义那2个属性，然后把这个类的创建的对象装到node.data中，这样做对简单了

aDragon · 发表于 2009-4-14 15:06:57

var
  lNode : TTreeNode;
  lProject : TProject;
begin
  Result := nil;
  lProject := TProject.Create;
  try
lNode := Items.AddChild(ParentNode,lProject.ProjectFullName);
lNode.Data := lProject;
Result := lNode;
  except
lProject.Free;
  end;
end;
仅供参考

dynasty0628 · 发表于 2009-4-15 10:17:43

按照您的思路在往下做
但是遇到一个二维数组的问题，老报错

n:array of array of TNode;
是这么定义二维数组的吧

aDragon · 发表于 2009-4-15 10:35:09

建议你使用TStrings

dynasty0628 · 发表于 2009-4-15 10:48:17

结吧

		自动登录	找回密码
密码			立即注册