Ver Mensaje Individual
  #2  
Antiguo 27-12-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita