Размещение большого кол-ва картинок на форме

[PaHaNjkee]

Здравствуйте, друзья. Интересует такой вопрос. Как лучше всего загрузить на форму большое кол-во картинок (смайлы). Их около 800. Создавать 800 компонентов Image? Или ImageList и 800 SpeedButton (к примеру). Спасибо за ответ

[PaHaNjkee]

Решил свою проблему, загружаем картинки в ImageList, далее прорисовываем в ListView. Теперь вопрос такой, как очистить память от всех картинок?

var
  Item: TListItem;
  ts: TStringList;
  tsr: TSearchRec;
  i: integer;
begin
  ts := TStringList.Create;
  if FindFirst('smiles/' + '*.png',faAnyFile,tsr) = 0 then
  repeat
    ts.Add(tsr.name);
  until FindNext(tsr) <> 0;
  FindClose(tsr);
  for i := 0 to ts.Count-1 do
  begin
    ImageList1.LoadFromFile('smiles/'+ts[i]);
    Item := ListView1.Items.Add;
    Item.Caption := '&#'+Copy(ts[i], 0, Pos('.', ts[i]))+';';
    Item.ImageIndex := i;
  end;
  ts.Free;

[Stilet]

ImageList по идее умеет это. У него есть метод Clear.

[Аватар]

А зачем очищать программно? ListView перестанет прорисовывать. Уничтожение формы очистит.

[PaHaNjkee]

Сообщение от Аватар

А зачем очищать программно? ListView перестанет прорисовывать. Уничтожение формы очистит.

В том то и дело, форма у меня временная, т.е. я её открываю, картинки загружаются, я выбираю и она мне больше не нужна. Зачем забирать лишних 10МБ памяти?

[Аватар]

ListView перестанет прорисовывать. В него выбор по индексу при прорисовке и сама картинка в нем не хранится

[Stilet]

картинки загружаются

А ты не загружай все смайлы. Загружай их по мере появления в тексте.
или это у тебя список смайликов?