UniGUI TreeView处理

1. 节点处理
   procedure TFrameTree.ExpandTree(PNode: TUniTreeNode);
   var Str, DirName: String; Qry: TAdoQuery; DirID,Fid: Integer; Node: TUniTreeNode;
   begin
   //展开父节点
   Fid := GetDirID(FNode);
   Str := ‘select * from DocDir where Del=0 and fid=’+IntToStr(Fid);
   Qry := dm.CreateQuery;
   Qry.SQL.Add(Str);
   Qry.Open;
   while not Qry.Eof do
   begin
   DirName := Qry.FieldByName(‘Name’).AsString;
   DirID := Qry.FieldByName(‘ID’).AsString;
   Node := AddNodeById(DirID, DirName, FNode);
   //递归
   ExpandTree(Node);
   Qry.Next;
   end;
   Qry.Free;
   end;
   不要一次全加，点击一个节点，才加载当前的。

2. ReadOnly设置？
   如果设置了js（显示CheckBox），是否ReadOnly不能设置了。之前有代码设置后，就异常。

标签：Node,DirID,Str,UniGUI,DirName,处理,Fid,Qry,TreeView
来源： https://blog.csdn.net/reson100/article/details/112248984