有这样一个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;