移植同事的代码,其中有一个功能给TreeView添加节点,主节点添加后不显示,子节点就没有问题,原来是少了行代码。
TreeView.Items.Add(nil, 'NewItem');
TreeView.Refresh;
TreeView第一次用,经验太少了,顺便记录下添加子节点的代码:
procedure AddTreeNode(TreeView: TTreeView; const ItemIndex: Integer);
var ANode: TTreeNode;
begin
with TreeView do begin
ANode:=Items[ItemIndex];
Items.AddChild(ANode, 'NodeContent');
end;
end;