edit+tree组合控件问题(50分)

控件继承至EDIT,我想在EDIT中增加一个TreeViewImages属性,用于设置TreeView的ViewImage,设置如何:
property TreeViewImages: TCustomImageList read GetTreeViewImages write SetTreeViewImages;

function TLookEdit.GetTreeViewImages:TCustomImageList;
begin
Result :=TreeView.Images
end;

procedure TLookEdit.SetTreeViewImages(Value:TCustomImageList);
begin
TreeView.Images := Value;
end;
现在控件属性中有了TreeViewImages,但一选择LISTImages,闪现一下又是空白,是怎么回事,要如何做才行,谢谢

不要用 TCustomImageList
用TImageList试试

一样的效果
另外其他设置仍不能生效,如颜色等

学习

问题还没解决,各位帮忙,谢谢