如何实现ＤａｔａＴｒｅｅＶｉｅｗ的ＣｈｅｃｋｅｄＢｏｘ的功能？**

frank4886

如何实现ＤａｔａＴｒｅｅＶｉｅｗ的ＣｈｅｃｋｅｄＢｏｘ的功能？

Alice

请参考如下代码：

procedure TPLANCENTERForm.cdtvPlanTypes4FilteGetImageIndex(Sender: TObject; DataSet: TDataSet; var ImageIndex: Integer);
begin
  ImageIndex := Integer(TCheckboxImageIndex.ciSelect);
end;

procedure TPLANCENTERForm.cdtvPlanTypes4FilteMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  lObj: TTreeNode;
begin
  lObj := cdtvPlanTypes4Filte.GetNodeAt(X,Y);
  if lObj = nil then exit;
  SetTreeNodeImageIndex(lObj);
end;

procedure TPLANCENTERForm.SetTreeNodeImageIndex(AObj: TTreeNode);
var
  I: integer;
begin
  AObj.ImageIndex := Integer(not Boolean(AObj.ImageIndex));
  for I := 0 to AObj.Count -1 do
  begin
    if AObj.Item[I].HasChildren then SetTreeNodeImageIndex(AObj.Item[I]);
    AObj.Item[I].ImageIndex := AObj.ImageIndex;
  end;
  AObj.SelectedIndex := AObj.ImageIndex;
end;

Alice

楼主：实现了么？

trickle

这个帖子中的TCheckboxImageIndex是从哪儿来的呢？

shangxy

TCheckboxImageIndex 这个应该是自定义的类吧，我们可以不用关心
GetImageIndex这个事件中给ImageIndex 赋值就可以了，主要是在数展现的时候使用的是那个图标。

trickle

最初由 shangxy 发布
[B]TCheckboxImageIndex 这个应该是自定义的类吧，我们可以不用关心
GetImageIndex这个事件中给ImageIndex 赋值就可以了，主要是在数展现的时候使用的是那个图标。 [/B]

这个图标我在哪儿定义呢？定义之后需要的datatreeview的属性里面设置什么呢？

shangxy

把选中图标和为未选中图标等都放到ImageList中，
然后DataTreeView的Images属性制定到这个ImageList就可以了。