[分享]组织机构相关控件

alang

以下代码显示选中的节点
begin
  Dialogs.Showmessage(OrgComboBox1.FileName);
end;
运行效果

alang

说明
TCheckBizTreeView其实并不是真正的Check控件，而是用不同的图片现实从外观上象Check控件，因此有好几个图片索引的属性
属性
property StateImages: TCustomImageList;
状态显示用的ImageList
property CheckedImageIndex: Longint;        选中的图片
property UnCheckedImageIndex: Longint;        未选中的图片
property DisableCheckedImageIndex: Longint;        禁止选择的图片
property GrayCheckedImageIndex: Longint;        灰色的图片
property CheckOptions: Business.Model.TBizObjectKinds;
可以选中的对象类型
property Checked[TTreeNode]: Boolean;
判断某个节点时候被选中

alang

问题
靠Checked[TTreeNode]一个节点一个节点的判断是否选中效率非常低
事件
property OnClickCheck: TClickCheckEvent;
当选中或者取消一个节点时，触发这个事件
在事件中可以记录选中的节点，然后直接用这个记录来表示选中的节点
举例
procedure TMainForm.CheckBizTreeView1ClickCheck(Sender: TObject; ANode: TTreeNode; Checked: Boolean);
begin
  if Checked and (FSelected.IndexOfObject(ANode)<0) then
    FSelected.AddObject((ANode.Data as TBizNode).BizURL.URL, ANode);
  if not Checked and (FSelected.IndexOfObject(ANode)>=0) then
    FSelected.Delete(FSelected.IndexOfObject(ANode));
end;