【结贴】请问TCheckBizTreeView用法

xhong

代码如下：
begin
  lNode := ATreeView.Items.GetFirstNode;
  ATreeView.Items.BeginUpdate;
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := TLIB_PDM.GetXTSCGLDBConnectionString;

      lQuery.Close;  //必须加这句
      lQuery.CommandText := SQL;
      lQuery.Open;
      lQuery.First;
      while not lQuery.Eof do
      begin
        lCurrNode := ATreeView.Items.AddChild(lNode, lQuery.FieldByName('Name').AsString);

        lDir := TDir.Create;
        AObjectList.Add(lDir);
        lDir.ID := lQuery.FieldByName('ID').AsString;
        //lDir.TemplateID := lQuery.FieldByName('TemplateID').AsString;
        lCurrNode.Data := lDir;
        lQuery.Next;
      end;

  finally
    lQuery.Free;
    ATreeView.Items.EndUpdate;
  end;
end;
第二次运行lCurrNode.Data := lDir;时报错：
Assertion failure (E:\DEVELOP\Build_MostNew\TIB3\Src\TIB\Core\Sys\BizComCtrls.pas, line 541)

atiger

对象用完为啥不释放呢？lQuery释放了，lDir ？

xhong

和那个没关系，lDir 窗体释放时候会释放的，你试试

zfang

TDir是 什么对象？
另外 这段代码中
   while not lQuery.Eof do
      begin
        lCurrNode := ATreeView.Items.AddChild(lNode, lQuery.FieldByName('Name').AsString);

        lDir := TDir.Create;//这句代码是否把它放到循环外？为什么要在循环内重复创建此对象？
        AObjectList.Add(lDir);
        lDir.ID := lQuery.FieldByName('ID').AsString;
        //lDir.TemplateID := lQuery.FieldByName('TemplateID').AsString;
        lCurrNode.Data := lDir;
        lQuery.Next;
      end;

xhong

TDir = class(TObject)
  private
    FID: string;
    FTemplateID: string;
    FImageIndex: Integer;
  public
    property ID: string read FID write FID;
    property TemplateID: string read FTemplateID write FTemplateID;
    property ImageIndex: Integer read FImageIndex write FImageIndex;
  end;

这段是根据数据库纪录，创建多个对象挂到树的节点上，这些对象最后用完会由AObjectList统一释放掉的
同样的代码TTreeView没问题的，现在是想用TCheckBizTreeView的可以checkbox那个效果

zfang

哦，那如果仅仅是为了 实现checkbox的效果，你用TTreeView也是可以的。其实就是 利用它的Image属性（即checkbox的效果就是利用它的图标来实现的）
网上找了个参考，请楼主研究下
http://www.builder.com.cn/2007/1031/593883.shtml

xhong

请问能直接用TCheckBizTreeView吗，我那样写不可以吗，因为那个例子也没考虑灰色的情况

zfang

不建议 用TCheckBizTreeView 它来加载非平台的对象，如果想要用它，应该会比较麻烦，因为你要把它所有的树的加载机制都要重写一遍。（1楼报错的问题就是加载失败了）
其实TCheckBizTreeView 本身 也是利用 6楼说的方式来实现的，你试试 用这个组件：TCheckTreeView （在工具箱的 Extend Form 中）

xhong

ok了：如果用TCheckBizTreeView，用AddObject方法可以，用AddChild报断言错误，这个应该是bug
按照8楼建议，用TCheckTreeView，目前挺好还没有发现问题，先结贴吧，谢谢zfang。