delphi TreeView添加节点

Question

本帖最后由 dongwenkai 于 2010-07-24 18:44:39 编辑

Answer 1

procedure loadTree();
var modObj : Module;//Module类
begin
  for i:=0 to list.Count-1 do
  begin
  modObj := Module(list.Objects[i]);//这里list就是上面的内容
  if 判断 level then 
    TreeView.add();
  end;
end; 
      if Level=0 then    //  µÚÒ»½Ú
      begin
        MyNode1:=TreeView.Items.AddChild(Node,TipName);
        MyNode1.ImageIndex:=strToInt(Child);
        MyNode1.StringData:=ClassId;
        MyNode1.StringData2:=Secret;
        MyNode1.SelectedIndex:=LineX;                         // ÉèÖñêÌâ×Ö·ûÇ°¿Õ루ÏóËØ£©
      end;
      if Level=1 then    //  µÚ¶þ½Ú
      begin
        MyNode2:=TreeView.Items.AddChild(MyNode1,TipName);
        MyNode2.ImageIndex:=strToInt(Child);
        MyNode2.StringData:=ClassId;
        MyNode2.StringData2:=Secret;
        MyNode2.SelectedIndex:=LineX;                         // ÉèÖñêÌâ×Ö·ûÇ°¿Õ루ÏóËØ£©
      end;
      if Level=2 then    //  µÚÈý½Ú
      begin
        MyNode3:=TreeView.Items.AddChild(MyNode2,TipName);
        MyNode3.ImageIndex:=strToInt(Child);
        MyNode3.StringData:=ClassId;
        MyNode3.StringData2:=Secret;
        MyNode3.SelectedIndex:=LineX;                         // ÉèÖñêÌâ×Ö·ûÇ°¿Õ루ÏóËØ£©
      end;