TImageList 图标更新通知方案

VCL中有 TChangeLink 这个对象，用于当ImageList刷新是通知到绑定ImageList的控件进行更新处理。

实现控件创建TChangeLink对象注册到ImageList

1 // 注册

2 Images.RegisterChanges(FImageChangeLink);

3 // 注销

4 Images.UnRegisterChanges(FImageChangeLink);

 

事例代码

procedure TmtCustomSpeedButton.SetImages(Value: TCustomImageList);

begin

  if Value <> FImages then

  begin

    if Images <> nil then

      Images.UnRegisterChanges(FImageChangeLink);

    FImages := Value;

    if Images <> nil then

    begin

      Images.RegisterChanges(FImageChangeLink);

      Images.FreeNotification(Self);

    end;

    UpdateImageList;

  end;

end;