TreeView添加子节点和动态生成控件

有这样一个TreeView,动态分有类A,B,C...(不一定是A,B,C...),我要在A类添加属   于它子节点,B类也添加属于它的子节点...  
  如结构:  
          A--a1  
            --b1  
              .  
              .  
              .  
          B--a1  
            --b1  
                .  
                .  
                .  
  不能出现两个相同状态:有A--a1,不能再有A--a1,如我添加一记录为C,a1和C,g1则TreeView要变为:  
          A--a1  
            --b1  
              .  
              .  
              .  
          B--a1  
            --b1  
                .  
                .  
                .    
          C--a1  
            --g1    
  有烦各位兄弟姐妹!  
   
  还有一个问题,怎么动态生成控件  
  如我想在单机Button1时,产生一个Lable,它的Caption=你好,Color=clWindow

node   :   TTreenode     ;  
  i   :   Integer   ;  
  begin  
      for   I   :=   0   to   treeview1.items.count   -   1   do  
        begin  
              node   :=     treeview1.items[i];  
              if   (node.text   =   'a')   and   (node.Level     =   0)then      
              begin  
                TreeView1.Items.AddChildFirst   (node,'b1');  
              end   ;  
        end   ;  
  end   ;  
  可以将上面的编成函数  
   
  Button1中  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      label1   :   TLabel   ;  
  begin  
      label1   :=   Tlabel.Create   (self);  
      label1.Parent:=   form1;  
      label1.Caption   :=   '你好';  
      label1.Top   :=   100   ;  
      label1.Left   :=   100;  
      label1.Visible   :=   true;  
  end;  

阅读更多

没有更多推荐了,返回首页