关于自定义控件的问题？再线等待，解决后马上给分，紧急！

Question

本人自定义一个从磁盘目录中调入图片缩放到ListView中的一个控件，完成过程中要用到一个ImageList控件，请问怎样实现在写控件时成功创建，不知那位大侠有类似的源代码，谢谢！

Answer 1

你可以在窗体上放上一个toolbar,再放上几个toolbotton 双击IMAGELIST里按ADD加入图片然后到,在toolbar的属性里的images选择imagelist,这样就可以了.

Answer 2

var
     FImages: TCustomImageList;
    FImageChangeLink: TChangeLink;constructor TYourComponent.Create(AOwner: TComponent);
begin
  inherited;
  FImageChangeLink := TChangeLink.Create;
  FImages:= TCustomImageList.Create(Self);
end;procedure TYourComponent.SetImages(Value: TCustomImageList);
begin
  if FImages<> nil then
    FImages.UnRegisterChanges(FImageChangeLink);
  FImages := Value;
  if Images <> nil then 
    Images.RegisterChanges(FImageChangeLink);    
end;destructor TYourComponent.Destroy;
begin
  FreeAndNIl(FImageChangeLink);
  FreeAndNIl(FImages);
  inherited;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————