Тема: TListBox
Показать сообщение отдельно
  #6  
Старый 23.08.2012, 00:38
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Можно использовать TList:
Код:
type
  TAvatar = class
    Bitmap : TBitmap;
    ID : Integer;
  end;

var
  Avatar : TAvatar;
  List : TList;
...
  List := TList.Create;
...
  Avatar := TAvatar.Create;
  Avatar.Bitmap := TBitmap.Create;
  Avatar.Bitmap.Assign(Нужный битмап);
  Avatar.ID  := Нужный ID;

  List.AddObject('', Avatar);
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием