Cita:
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
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]