FMX TreeView部分显示CheckBox（父节点显示，子节点不显示）

最新推荐文章于 2025-05-04 14:47:10 发布

原创最新推荐文章于 2025-05-04 14:47:10 发布 · 564 阅读

2 ·

CC 4.0 BY-SA版权

Delphi 同时被 2 个专栏收录

44 篇文章

订阅专栏

Firemonkey

6 篇文章

订阅专栏

本文介绍如何在Delphi中使用TreeView组件，并通过设置Node.OnApplyStyleLookup事件来控制不同类型的节点是否显示CheckBox。示例代码展示了如何根据节点的TagString属性决定是否隐藏CheckBox。

效果图：

TreeView 部分节点不显示CheckBox效果

// 显示TreeView.ShowCheckBoxes := True;
// 创建节点时给Node.OnApplyStyleLookup事件赋值

function TFrmMain.NewNode(ParentNode: TFmxObject; Text: string; ImgIdx: Integer): TTreeViewItem;
begin
  Result := TTreeViewItem.Create(Self);
  Result.Parent := ParentNode;
  Result.Text := Text;
  Result.ImageIndex := ImgIdx;
  Result.DisableDisappear := True;
end;

procedure TFrmMain.OnItemApplyStyle(Sender: TObject);
var
  Item: TTreeViewItem;
begin
  if Sender is TTreeViewItem then
  begin
    Item := Sender as TTreeViewItem;
    // 条件可以是Tag、TagString、Level等
    if Item.TagString = 'FIELD' then
      item.StylesData['check.Visible'] := False;// 样式表的中check不显示
  end;
end;

// 示例代码：表节点显示CheckBox，字段节点不显示CheckBox
var
  pitem, item: TTreeViewItem;
begin
  pitem := FrmMain.NewNode(nil, 'Table', -1);
  pitem.TagString := 'TABLE';
  pitem.OnApplyStyleLookup := FrmMain.OnItemApplyStyle;

  item := FrmMain.NewNode(pitem, 'Field Name');
  item.TagString := 'FIELD';
  item.OnApplyStyleLookup := FrmMain.OnItemApplyStyle;
end;