Como Trabajar los listview en delphi 7

[lucasarts_18]

Hola Shidalis:

Aquí te dejo un fragmento de código para que vayas dandote una idea de como se trabaja con este control.

Código Delphi [-]
 
procedure TVenta.lboxCatClick(Sender: TObject);
var
Item : Integer;
ListItem : TListItem; 
valor : String;
begin
   LstViewProd.Items.Clear;
   Item := lboxCat.ItemIndex;
   valor := lboxCat.Items[Item];
   with Modulo.QryVentas do
   begin
       valor := valor + '%';
       Close;
       SQl.Clear;
       SQL.Add ('Select * from Productos');
       SQL.Add ('Where Descripcion like ' + quotedstr(valor));
       Open;
       Active := True;
       while not EOF do
       begin
          ListItem := LstViewProd.Items.Add;
          ListItem.Caption := FieldValues['Id_Producto'];
          ListItem.SubItems.Add (FieldValues['Descripcion']);
          ListItem.SubItems.Add (FieldValues['Procedencia']);
          ListItem.SubItems.Add (FieldValues['Precio_Unitario']);
          ListItem.SubItems.Add (FieldValues['Stock']);
          Next;
       end;
   end;
end;

Este trozo de código toma la consulta de acuerdo al contenido del ListBox y lo pasa como parametro al TQuery

Para agregar Items a un ListView debes declarar esto:

Código Delphi [-]
 ListItem : TListItem;

y luego le asignas el control listview al ListItem y, después accediendo a sus metodos podrás ir asignando valores a cada celda.

Como dijo delphi.com.ar este control no es para novatos, así que antes de enbarcarte bien con este control, estudialo bastante y, con el ejemplo que te deje deberías empezar a practicar algunas cosillas.

Saludos.