//在选中的节点中上添加1个节点 procedure TForm1.Button1Click(Sender: TObject); begin with TreeView1 do begin Items.AddChild(Selected,'aaa'); end; end; //添加节点 procedure TForm1.Button1Click(Sender: TObject); begin with TreeView1 do be
TreeView设置节点图标 没子节点的设置其图标为 0 有节点的设置其图标为 1 procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin with TreeView1 do begin for i:= 0 to Items.Count -1 do begin if Items[i].HasChildren then begin