控件treeview的使用_vs2019 控件treeview怎么用-优快云博客

本文链接：https://blog.youkuaiyun.com/IORILI/article/details/18389

这篇博客介绍了如何在Delphi中操作TreeView控件，包括在FormCreate事件中加载数据，通过SQL查询动态添加根节点和子节点，以及进行删除、编辑节点的操作。关键步骤包括关闭并清除数据，设置SQL查询，激活并打开数据，以及在添加大量数据时使用BeginUpdate和EndUpdate来提高效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure Tcpya_app.FormCreate(Sender: TObject);
begin
datamodule2.tree.close;
datamodule2.tree.sql.clear;
datamodule2.tree.sql.add('select name from plat order by name');
datamodule2.tree.Active:=true;
datamodule2.tree.Open;
while not datamodule2.tree.Eof do
    begin
     with tv.Items do
begin
     MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));//增加根节点
      with datamodule2 do
      begin
       child.close;
       child.SQL.Clear;
       child.SQL.Add('select comp from dalei where plat='''+Trim(datamodule2.tree.Fields[0].asstring)+''''+' order by comp');
       child.Active:=true;
       child.Open;
       While Not child.Eof do
       begin
            TV.Items.AddChild(mytreenode1,trim(child.Fields[0].AsString));
            child.Next;
            end; end;
       datamodule2.tree.Next;
   end;
   end;
end;