如何讓treeview的某一個節點，變顏色 如下圖所示

是要這樣嗎？ 寫在 TreeView1 的 OnAdvancedCustomDrawItem 事件中 判斷標準是要畫的 Note 取得 Focus 且該 Note 的 Text 屬性是 'admin 125'

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if (cdsFocused in State) and (Node.Text = 'admin 125') then
  begin
    TreeView1.Canvas.Brush.Color := clWhite;
    TreeView1.Canvas.Font.Color := clRed;
  end;
end;

-- hagar.

我是要 雙擊 某個節點 就讓那個節點 變顏色 若按"關閉" 再讓那個節點 變回原本的顏色

採用此事件 好像就會讓原本 點過的node 變回原本的顏色 能否讓已變色的node，保持原色 (cdsFocused in State) 是不是 當點的時候才變色 未點選 就沒有顏色 我要讓它每雙擊一個node後 該node就變色 發表人 - seedbcc 於 2005/07/19 14:01:39

同 hagar 兄作法。事實上細節可自行調整即可，不應要求完整程式碼。

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if (Node<>nil) and (Node.StateIndex=1) then
  begin
    TreeView1.Canvas.Brush.Color := clWhite;
    TreeView1.Canvas.Font.Color := clRed;
  end;
end;    procedure TForm1.TreeView1DblClick(Sender: TObject);
Var
  Node : TTreeNode;
begin
  inherited;
  Node :=TreeView1.Selected;
  if Node<>nil then
  begin
    Node.StateIndex :=1;
  end;
end;

參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

Node.StateIndex :=1; 因為 node的stateindex 我已經有塞其它值 做為其它判斷 請教一下： 不知道 除了stateindex及text外 ，我還可以塞到哪個變數

找不到替代屬性，可利用 Node.Data 。 如：

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if (Node<>nil) and (Node.Data<>Nil) then
  begin
    TreeView1.Canvas.Brush.Color := clWhite;
    TreeView1.Canvas.Font.Color := clRed;
  end;
end;    procedure TForm1.TreeView1DblClick(Sender: TObject);
Var
  Node : TTreeNode;
  PB   : PBOOL;
begin
  inherited;
  Node :=TreeView1.Selected;
  if Node<>nil then
  begin
    New(PB);
    PB^ := True;
    Node.Data := PB;
  end;
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

再請教一個問題 如我第一張圖所示 我要如何去設定 admin_開頭的 那些節點 的Node.date設回nil 設回nil後，AdvancedCustomDrawItem事件 要如何去趨動它呢

procedure TForm1.Button1Click(Sender: TObject);
var
  I : integer;
  R : TRect;
begin
  for i := 0 to TreeView1.Items.Count-1 do
    With TreeView1.Items[I] do
      if SameText(Copy(Text,1,6),'admin_') then
      begin
        Dispose(Data);
        Data := Nil;
        if IsVisible then
        begin
          R := DisplayRect(False);
          InvalidateRect(TreeView1.Handle, @R, True);
        end;
      end;
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

能夠直接從最後的節點(第五層找嗎） 因為，我只有第五層有意義

Level ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

感謝二位版主的幫忙 因為分數只能給一個，只好給wameng版主囉 在此，向hagar版主 說聲抱歉囉