Listbox mit Objekten

[shmia]

Das Property Items der Standard Listbox-Komponente ist doch vom Typ TStrings.
In TStrings lassen sich doch pro Item ein Text und ein Objekt hinterlegen.
Wenn man pro Item mehr als ein Objekt braucht, dann braucht man pro Item eine TObjectList und packt dort die Objekte rein.
Alternativ baut man sich ein Wrapper-Objekt, das mehrere Objekte unter einem Dach vereint.

Delphi-Quellcode:

TListBoxItemObj=class(TPersistent)
   property RotesObjekt : TImage;
   property BlauesObjekt : TImage;
end;