Como Trabajar los listview en delphi 7

[Shidalis]

Hola amigos alguno de ustedes me podria facilitar material o alguna direccion donde hable de como trabajar los listview en delphi 7.
De ante manos gracias !!!

[delphi.com.ar]

Yo te recomendaría leer la ayuda, y ver los ejemplos (VirtualListView)

Saludos!

[Shidalis]

disculpa pero aun soy novata y en la ayuda del delphi no me explica como pudo mostrar los datos desde una base de datos en un listview

[delphi.com.ar]

Si sos novata no te recomiendo utilizar un TListView con este fin... ¿Porque no un DBGrid?.... Por ejemplo, los DBGrids solo muestran una página de datos, lo que para consultas muy extensas es lo mas recomendado, si lo haces con un ListView vas a tener que encargarte de paginar la información.... nada para novatos.

Por otro lado no dudo que exista algún listview de terceros con ese fin, te recomiendo buscarlo en Torry.net

Saludos!

[Shidalis]

gracias por todo!!!1

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

[delphi.com.ar]

Originally Posted by lucasarts_18

Como dijo delphi.com.ar este control no es para novatos....

Esteeeee... yo no quise decir eso!
Lo que quise decir es que el DBGrid tiene ciertas funcionalidades implementadas, que el TListView no, y su implementación no es para novatos. Digamos, si esta en la disyuntiva de cual usar, que no lo dude!
Pero no quise decir que el TListView sea un control avanzado!

Saludos!

[Shidalis]

Disculpa lucasart pero para que usas esta variable "FieldValues" y de que tipo la declaras?

[delphi.com.ar]

FieldValues no es una variable, es una propiedad de Modulo.QryVentas y te retorna un variant con el valor de campo que le pases como parámetro.
Yo en este caso utilizaría un FieldByName('Campo').DisplayText para que sea mas standard!

Saludos!

[Shidalis]

Muchas Gracias por su ayuda ya logre mostrar los datos que queria!!!