ImageList im Constructor erzeugen

[Leuselator]

probier mal:

Delphi-Quellcode:

constructor TDriveToolBar.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner); 
    if (AOwner is TWincontrol) 
      then Parent := TWincontrol(AOwner);
  Flat := True; 
  Height := 26; 
  Width := 185; 
  Align := alNone; 
  ShowCaptions := True; 
  EdgeBorders := [ebTop, ebBottom, ebLeft, ebRight]; 
  fImageList := TImageList.Create(Self); 
  Images := fImageList; 
  EnumDrives; 
end;