Perdido con el TListView

[delphi.com.ar]

Empezado por Ohcan

Te paso un código que uso para insertar en los ListViews.
Espero que te ayude.

Código Delphi [-]
 procedure TwPrincipal.InsertaMsg(ListView:TListView; const Mensaje: String);
 begin
   //Para insertar mensajes en ListViews
   ListView.SmallImages := ListaIconosLv;
   ListView.Items.Add;
   ListView.Items[ListView.Items.Count-1].Caption := 'ElCaption';
   ListView.Items[ListView.Items.Count-1].ImageIndex := 2;
     ListView.Items[ListView.Items.Count-1].SubItems.Add('UnSubitem');
   ListView.Items[ListView.Items.Count-1].SubItems.Add(Mensaje);
 end;

Lo mismo pero un poquito mas veloz:

Código Delphi [-]
 procedure TwPrincipal.InsertaMsg(ListView:TListView; const Mensaje: String);
 begin
   with ListView.Items.Add do
   begin
     Caption := 'ElCaption';
     ImageIndex := 2;
     SubItems.Add('UnSubitem');
     SubItems.Add(Mensaje);
   end;
 end;

[/quote]