Du kannst ein Item anlegen, und die SubItems mit den Werten der Indizes in der Imagelist belegen:
Schritt1:
Delphi-Quellcode:
Item:=ListView1.Items.Add;
Item.SubItems.AddObject('MeinText1',TObject(IconIndex));
Item.SubItems.AddObject('MeinText2',TObject(IconIndex2));
usw.
Schritt2:
Delphi-Quellcode:
procedure TForm1.ListView1GetSubItemImage(Sender: TObject; Item: TListItem;
SubItem: Integer; var ImageIndex: Integer);
begin
ImageIndex:=Integer(Item.SubItems.Objects[SubItem]);
end;
Ciao
Marco