节点处理
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;
不要一次全加，点击一个节点，才加载当前的。

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