在 Treeview 中禁用和更改节点的颜色

Question

我正在寻找禁用适当节点的方法。

假设我创建了简单的 treeview 结构，如下所示：

• 父 1 （禁用）
• 父 2
  • 孩子 1
  • 孩子 2 （禁用）

到目前为止，我已经找到了解决方法，但它仍然无法正常工作。我使用OnChanging 事件处理程序：

procedure TForm1.TreeViewChanging(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean); 
begin
   if (Node.Text = 'Parent 1') or (Node.Text = 'Child 1') then
      AllowChange := False;
end;

它可以工作，因为我无法单击此节点，但问题是在以这种方式“禁用”节点后，Parent 1 和 Child 1 节点的颜色与其他节点相同。有没有办法改变这个节点的颜色（灰色）？或者您知道在 TTreeView 组件中禁用节点的另一种方法？

Answer 1

要禁用节点，请将其Enabled 属性设置为False。禁用的项目以灰色显示。

要更改节点文本的正常颜色，请更改 TTreeView.Font.Color。

要更改禁用节点文本的颜色，请使用OnCustomDrawItemevent：

procedure TForm2.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsDisabled in state then
    Sender.Canvas.Font.Color := clRed; //cl3DLight;
end;

默认颜色设置：

禁用颜色 = cl3DLight:

普通文本颜色 = clGreen 和禁用颜色 = clRed：