//treeview的單擊事件

proceduretform1.treeview1click(sender:tobject);

begin

//如果選中節點的等級（level）為0（根節點等級為0，根節點的子節點等級為1，依次類推）並且其序號(index)為0（同等級下的的節點按從上到下數第一個為0，第二個為1，以此類推）

if(treeview1.selected.level=0)and(treeview1.selected.index=0)then

begin

//這裡寫點中了第一個根節點後要做的事

form1.color:=clred;

end

else

if(treeview1.selected.level=1)and(treeview1.selected.index=1)then

begin

//這裡寫點中了第三個根節點的第2個子節點後要做的事

form1.color:=clblue;

end;

end;

//如果你想點節點前的“+”號也有同樣的效果，那麼就應該在expanding事件裡寫判斷處理程式。

//【補充】【如果你不想要點+號的時候觸發事件，這下面的可以刪去】

proceduretform1.treeview1expanding(sender:tobject;node:ttreenode;

varallowexpansion:boolean);

begin

if(node.level=0)and(node.index=0)then

begin

form1.color:=clred;

end

else

if(node.level=1)and(node.index=1)then

begin

form1.color:=clblue;

end;

end;

如果還有不明白的地方，補充或者給我發訊息（註明問題）