TMyNode = class(TTreeNode)
FMyData: string;
FMyEvent: TNotifyEvent;
....随便你放什么...
end;

TreeView1.OnCreateNodeClass 事件里写： NodeClass := TMyNode;

然后。凡是增加的 Node, 都是：

ANode: TMyNode;

ANode := TMyNode(TreeView1.Items.Add(nil, 'aaaabbcc'));

以后，所有的 Node 都是 TMyNode 了。不需要去改动 TTreeView

比如：

for i := 0 to TreeView1.Items.Count - 1 do ANode := TMyNode(TreeView1.Items[i]);