Problème affectation dynamique ImageList à un ComboBoxEx.Images

Réponse acceptée !


Explications :

cela est du au fait que, comme les Evenements, les propriétés du style Images, PopupMenu, Action, ActiveControl, Menu, etc, ne sont la que pour stocker une instance existante d'un objet.

voici comme elle sont déclarée :

TMaClasse = class
private
  fCompo: TComponent;
  // Ceci est en fait un pointeur sur l'instance existante d'un composant, il est nil par defaut

  procedure SetCompo(Value: TComponent);
  // permet d'effectuer les operations necessaire pour l'assignation a fCompo
public
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  // permet de gerer la notification de liberation externe de fCompo, sans cela, un appel a fCompo alors
  // que ce dernier serait libéré provoquerai une erreur dans la classe.

  property Component : TComponent read fCompo write SetCompo;
  // ceci est la propriété visible permettant de "linker" un composant a notre classe.
end;

procedure TMaClasse.Notification(AComponent: TComponent; Operation: TOperation);
begin
  // si le composant linké se libère on remet fCompo a nil.
  if (AComponent = fCompo) and (Operation = opRemove) then
    fCompo := nil;
  inherited; 
end;

procedure MaClasse.SetCompo(Value: TComponent);
begin
  if fCompo <> Value then
  begin
    // Si fCompo etait assigné on lui indique de ne plus prevenir la classe de sa libération
    if Assigned(fCompo) then
      fCompo.RemoveFreeNotification;
 
    // on assigne notre nouveau composant ou nil
    fCompo := Value;
    // si fCompo est de nouveau assigné, il doit nous prevenir de son eventuelle libération
    if Assigned(fCompo) then
      fCompo.FreeNotification(Self);
  end;
end;


Voila, ce genre de propriété permet de linké un composant avec un autre, le Owner ne doit pas, en regles generales, effectuer la creation ou la libération d'une telle propriété. Elles ne servent qu'a pouvoir interragir avec un composant.

---

Réponse acceptée !


procedure UpdateImageList(ComboBox: TComboBoxEx; ImageList: TImageList; const ImagesName : array of string);
var
  I : Integer;
  BMP: TBitmap;
begin
  if (Length(ImagesName) = 0) or (ComboBox = nil) or (ImageList = nil) then
    Exit;

  BMP := TBitmap.Create;
  try
    ComboBox.ItemsEx.BeginUpdate;
    try
      ComboBox.Clear;
      ComboBox.Images := ImageList;

      for I := Low(ImagesName) to high(ImagesName) do
      begin
        if FileExists( ImagesName[I] ) then
        begin
          BMP.LoadFromFile( ImagesName[I] );
          ImageList.Add(BMP, nil);
          ComboBox.ItemsEx.AddItem( ImagesName[I] , I, I, -1, -1, nil);
        end;
      end;
    finally
      ComboBox.ItemsEx.EndUpdate;
    end;
  finally
    BMP.Free;
  end;
end;

---