Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Listview 2 columna (https://www.clubdelphi.com/foros/showthread.php?t=62474)

Yasnet 27-12-2008 16:54:01

Listview 2 columna
 
Buenos dias a todos, disculpen por las molestias pero tengo una pregunta, disculpen por ser algo tonta pero si alguien me pudiera decir como poder escribir en la 2 columna de un listview se los agradeceria.
Yo se que es muy tonta pero no se usar este componente y no tengo a nadier que me asesore.
Disculpen nuevamente con las molestias y espero y alguien me pueda ayudar:)

dec 27-12-2008 17:12:40

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;

Yasnet 27-12-2008 17:24:17

De verdad que muchas gracias dec y perdon por las molestias esque no tengo asesoria en este momento y lo estaba haciendo por mi cuenta. De verdad que muchas gracias

dec 27-12-2008 17:32:46

Hola,

Nada de molestia, para eso estamos, para echar una mano cuando se puede. ;)

AzidRain 28-12-2008 01:55:52

Oye Dec, a mi me paso lo mismo, pero yo lo hice de forma diferente, cree un objeto y me di cuenta que al añadirle subitems estos se convertian en las columnas en el modo Report. Ya después vi que es lógico puesto que cada columna representa un atributo o elemento del item principal, el cual queda visible solo en las vistas que no son vsReport.

A ver si encuentro por ahí que hice y lo pego aqui


La franja horaria es GMT +2. Ahora son las 12:34:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi