Delphi10.3中的TreeView1的使用说明

mySQL数据库中，所有的DataBase及其对应的Tables;最终效果：

先在设计窗口，新建根结点

 再添加层级为Level1级的数据库名DataBases;

var
 RootNode ,DBNodes: TTreeNode; //先建立一个TREEVIEW使用的结点对象
begin
      FDQuery1.Active:=false ;
      FDQuery1.SQL.Text:= 'SHOW DATABASES';
      DBGrid1.DataSource:= DataSource1;
      FDQuery1.Active:=true;

 RootNode:=TreeView1.Items.GetFirstNode();   //根结点
 RootNode.DeleteChildren;                          //删除 以前 子结点

    while NOT FDQuery1.EOF do       Begin  
       TreeView1.Items.AddChild(RootNode,FDQuery1.FieldByName('database').AsString) ;      
       FDQuery1.Next;
    End;
 RootNode.Expand(false);          //展开子结点
end;