我这里有一个程序;
VAR
ROOt :TTreenode;
data : ^string;
mynode, mynode1 :TTreenode;
begin
new(data);
mynode :=treeview1.items.addchildobject(ARoot,acaption,Data);
if mynode.level>=0 then
begin
mynode.imageindex :=1;
mynode.selectedindex :=1;
end;
end;
是在主窗口或子窗体呢?在什么控件下进行编写啊