Icon aus Resource in eine Imagelist?

[Niko]

Hm, komisch.

Aber wenn's mit den Borland-Funktionen nicht geht, dann eben ganz altmodisch über die Win-API :

Delphi-Quellcode:

var
  Hd: THandle;
  Ico: TIcon;

//...

Hd := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
Ico := TIcon.Create;
try
  Ico.ReleaseHandle;
  Ico.Handle := Hd;
  ImageList1.AddIcon(Ico);
finally
   Ico.Free;
end;