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:
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.