ImageList + TBitMap = ...

[Alex Cones]

Как загруженные в имлист картинки (bmp формата) перенести в переменные типа TBitMap?

Pics : Array[0..8] of TBitMap;

[Ntlegend]

а чем не устраивает ImageList1.GetBitmap ??

[Kotofff]

Если я правильно понял вопрос так попробуй :

ImageList1.GetBitmap(0, Pics[0]);

P.S. Да уж ... и как всегда опоздал ...

[Alex Cones]

Спасибо, попробую.

Нееее... Я имел ввиду наоборот.
Подробнее:
У меня есть забитый имлист.
У меня есть пустой массив из битмапов.
Я хочу скопировать картинки из листа в массив.

[Neeter]

Все вам правильно сказали:

...
var
 Form1: TForm1;
 Bitmaps: array of TBitmap;
...

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 SetLength(Bitmaps, ImageList1.Count);
 for i := 0 to ImageList1.Count - 1 do
 begin
  if Bitmaps[i] = nil then Bitmaps[i] := TBitmap.Create;
  ImageList1.GetBitmap(i, Bitmaps[i]);
 end;
end;

...

//Освобождаем память от массива
procedure TForm1.FormDestroy(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to Length(Bitmaps) - 1 do Bitmaps[i].Free;
end;