Listview 2 columna

[dec]

Hola,

Supongo que ya tienes el componente con su propiedad "ViewStyle" en "vsReport". Si es así únicamente tienes que preocuparte de añadir columnas (mediante la propieadad "Columns") y después tantos "items" como quieras, con sus correspondientes "subitems". El "Caption" de un "item" es el valor de la primera "columna", y, cada uno de los "Captions" de sus "subitems" corresponden a los valores de las columnas siguientes. Aquí un poco de código. Inicia un nuevo proyecto (para probar), sitúa en el formulario un "TListView" y un botón. En el evento "OnClick" del botón sitúa el siguiente código. Verás que se crean un par de columnas, y, que, cada vez que pulses el botón se añadirá un nuevo "item", con un "subitem", de modo que se "rellene" la lista apropiadamente. Si tienes dudas avisa.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  if (ListView1.Columns.Count = 0) then begin
    with ListView1.Columns.Add do begin
      Caption := 'Primera columna';
    end;
    with ListView1.Columns.Add do begin
      Caption := 'Segunda columna';
    end;
    (*
    with ListView1.Columns.Add do begin
      Caption := 'Tercera columna';
    end;
    *)
  end;
  with ListView1.Items.Add do begin
    Caption := Format(
      '%d elemento (primera columna)',[ListView1.Items.Count]
    );
    SubItems.Add(Format(
      '%d elemento (segunda columna)',[ListView1.Items.Count]
    ));
    (*
    SubItems.Add(Format(
      '%d elemento (tercera columna)',[ListView1.Items.Count]
    ));
    *)
  end;

end;