关于CheckTreeView**

jiaogl

CheckTreeView怎么用啊？
我想用代码创建节点和节点的字节点怎么写啊？？
急等着用，在线等了！

jiaogl

？？？？

amao800613

请参看用户手册第十章10.9节第479页，里面有相关详细的介绍。

提供这段代码供参考：

static function TTXCLFBXYWXX.Select(): string;
var
  lBrowseDialog: TBizBrowseDialog;
  //I: Integer;
  lIDs: string;
  //lBizURL: TBizURL;
  //lBizNode: TBizNode;
begin
  lIDs := '';
  lBrowseDialog := TBizBrowseDialog.Create(nil);
  //lBizURL := TBizURL.Create ;
  //lBizNode := TBizNode.Create ;
  try
    lBrowseDialog.Title := '部门选择窗体';
    lBrowseDialog.ShowOptions := [TBizObjectKind.boOrgServer,TBizObjectKind.boOrgRoot,TBizObjectKind.boOrgan,TBizObjectKind.boDept];
    lBrowseDialog.ShowCheck := True;
    //lBrowseDialog.MultiSelect:=True;
    lBrowseDialog.MultiSelect:=false;
    //lBrowseDialog.CheckOptions := [TBizObjectKind.boPersonMember];
    lBrowseDialog.MustSelectedNode := [TBizObjectKind.boOrgan,TBizObjectKind.boDept,TBizObjectKind.boPerson];
    lBrowseDialog.PromptText := '请选择相关部门';
    //lBizURL.URL := AdeptUrl;
    //lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
    //lBrowseDialog.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);
    if lBrowseDialog.Execute then
      //for I := 0 to lBrowseDialog.Files.Count - 1 do
        //if lIDs <> '' then
          //lIDs := lIDs + ';' + FileSys.FileUtils.GetFileNameNoExt(lBrowseDialog.Files[I])
        //else
          //lIDs := FileSys.FileUtils.GetFileNameNoExt(lBrowseDialog.Files[I]);
         begin
         lIDs :=lBrowseDialog.FileName;
         end
    else
         lIDs :='NoSelect';
  finally
    lBrowseDialog.Free;
    //lBizURL.Free;
    //lBizNOde.Free;
  end;
  Result := lIDs;
end;

procedure TTXCLFBXYWXX.FIELD_TXCLFBXBZSJJ_GSBMButtonClick(Sender: TObject);
Var
  lBizURL: TBizURL;
  lOrgUnit : TOrgUnit;
begin
  lBizURL := TBizURL.Create;
  //lOrgUnit:= TOrgUnit.Create;
  lBizURL.URL :=TTXCLFBXYWXX.Select();
  //jsdialogs.ShowMsg(lBizURL.URL,'BiZUrl');
  if lBizURL.URL <>'NoSelect' then
  begin
  lOrgUnit:=Org.OrgSys.OrgSystem.FindUnit(lBizURL);
  //if Bizsys.BizSystem.URLExists(lBizURL.URL) then
  //jsdialogs.ShowMsg(lOrgUnit.DisplayName,'');
  DataSetTXCLFBXBZSJJ.Edit;
  DataSetTXCLFBXBZSJJ.FieldByName('GSBM').AsString := lOrgUnit.DisplayName;
  DataSetTXCLFBXBZSJJ.FieldByName('GSBMBH').AsString := lOrgUnit.ID;
  end;
  lBizURL.free;
//jsdialogs.ShowMsg('test','finish');
end;

lantian402

用户手册第十章10.9节第479页，里面有相关详细的介绍？？？？
在第十章都没有看到介绍CheckTreeView控件。。只看到CheckBizTreeView 的。。
能给出相关详细介绍不？？