不好意思，我沒說清楚。
我是想定位到根節點，並且根節點的顏色成藍色（就像選中了一樣）。
var
treenode: ttreenode;
begin
treeview1.hideselection:=false;
treenode:=treeview1.items.item[0];
while treenode.getfirstchild <> nil do
treenode:=treenode.getfirstchild;
treenode.selected:=true;
end;
node.expand(true);
treeview1.selected.expanded; //判斷節點的子節點是否展開true展開，否則閉攏
treeview1.selected.expand(true);//子節點展開
treeview1.selected.collapse(true)://子節點閉攏
樹節點全部展開：
procedure tform1.button1click(sender: tobject);
var node:ttreenode;
begin
if treeview1.items[0]<>nil then
begin
node:=treeview1.items[0];
node.expand(true);
while node.getnextsibling<>nil do
begin
node:=node.getnextsibling;
node.expand(true);
end;
end;
end;
樹節點全部收縮：
procedure tform1.button2click(sender: tobject);
var node:ttreenode;
begin
if treeview1.items[0]<>nil then
begin
node:=treeview1.items[0];
node.collapse(true);
while node.getnextsibling<>nil do
begin
node:=node.getnextsibling;
node.collapse(true);
end;
end;
end;
節點高亮顯示
如果設定了treeview.hideselection:=false;
ifnode.selected
then
begin
canvas.brush.style :
=bsfdiagonal;
canvas.brush.color :
=clhighlight;
canvas.font.color :
=clhighlighttext;
end;
oncustomdrawitem事件裡只需一句treeview1.canvas.brush.style := bsfdiagonal;就可以了
treeview1.select(node);
hadoop學習問題總結
1 找到問題的原因 sequencefile時連線不上錯誤，一直以為是集群沒有搭建成功，執行其他程式卻沒有問題，確定是程式本身的問題。2 hadoop streaming babel不能處理連續的兩個由sequencefile生成的檔案，一直不知道是什麼原因，將sequence用cat匯出時，又上網...
學習總結 問題彙總
問題1 在a執行緒初始化人臉演算法庫，在a執行緒執行演算法庫功能，檢測人臉效能正常 20ms 在a執行緒初始化人臉演算法庫後，a執行緒建立b執行緒，在b執行緒執行演算法庫功能，檢測人臉效能降低 100ms 分析 執行緒建立的位置會影響執行緒被排程的優先順序，導致a初始化演算法庫 演算法庫啟動執行緒a...
前端學習問題總結
1.null和undefined的區別？答 undefined型別只有乙個值，即undefined。當宣告的變數還未被初始化時，變數的預設值為undefined。null型別也只有乙個值，即null。null用來表示尚未存在的物件，常用來表示函式企圖返回乙個不存在的物件。2.什麼是單例模式，單例模式...