10 respuestas en este tema

[egostar]

Hola

Estoy intentando pasar un registro de un ListView a otro ListView, he podido pasar los datos parcialmente a través de lo siguiente.

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView2.Items.AddItem(listView1.Items[ListView1.ItemIndex],-1);
end;

El problema es que no pasa el primer dato, ¿ Alguien sabe porqué no pasa este dato?

Salud OS

[Caral]

Hola
Interesante pero me queda la duda??.
Eso es un ListView???.
Me gustaría saber como le haces la apariencia de un DBGRid.??
Saludos
PD: Por otro lado si no funciona es por que seguro hay algo mal.

[Caral]

Hola
Me respondo:
ViewStyle= vsReport.
Saludos

[egostar]

Hola
Interesante pero me queda la duda??.
Eso es un ListView???.
Me gustaría saber como le haces la apariencia de un DBGRid.??
Saludos
PD: Por otro lado si no funciona es por que seguro hay algo mal.

Hola amigo

Pues eso es fácil, asignas la priopiedad ViewStyle del ListView como vsReport, y después lo que hice fué asignar los nombres de las columnas en la propiedad Columns del ListView.

Salud OS

PD, por cierto, seguro algo estoy haciendo mal, por eso es que no me pasa el primer campo

[enecumene]

debes trabajar con la propiedad Subitems[x]

[egostar]

debes trabajar con la propiedad Subitems[x]

Pero, los subitems son los que se pasaron correctamente, el ID es el nodo principal ahi esta el asunto.

Salud OS

[enecumene]

Si amigo, te reitero que uses la propiedad Subitems[x]:

delphi

//Cargamos datos en el primer ListView
procedure TForm1.FormCreate(Sender: TObject);
begin
With listview1.Items.Add do begin
  Subitems.Add('Una cosa');
  Subitems.Add('otra cosa');
end;
end;
 
//Pasamos los datos del primer LV al Segundo LV
procedure TForm1.Button1Click(Sender: TObject);
begin
with ListView2.Items.Add do begin
  SubItems.Add(ListView1.Items[ListView1.ItemIndex].SubItems[0]);
  SubItems.Add(ListView1.Items[ListView1.ItemIndex].SubItems[1]);
end;
end;

[escafandra]

Realmente el dato primero, el de la primera columna es el caption del Item:

delphi

ListView1.Items[1].Caption:= 'Caption';

Prueba de esta manera  :

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
Temporal: TListItem;
begin
    Temporal:= ListView2.Items.Add;
    Temporal.Assign(ListView1.Items[ListView1.ItemIndex]]);
end;

Saludos.

[egostar]

Ah joder, amigo escafandra me funcionó de maravilla, ahora solo debo de validar que no haya repetidos.

Muchas gracias.

Salud OS

PD, aún no comprendo bien lo del uso de ese temporal, pero lo analizaré :$

[egostar]

Bueno, pues no, no hay necesidad de validar los repetidos porque estoy pasando de un listview a otro y lo que hice fué borrar del ListView fuente el que se pasó al ListView destino.

Esto quedo de la siguiente forma

delphi

{ListView1 a ListView2}
procedure TForm1.Button1Click(Sender: TObject);
var
  Temporal: TListItem;
begin
  Temporal:= ListView2.Items.Add;
  Temporal.Assign(ListView1.Items[ListView1.ItemIndex]);
  ListView1.Items[ListView1.ItemIndex].Delete;
end;
 
{ListView2 a ListView1}
procedure TForm1.Button2Click(Sender: TObject);
var
  Temporal: TListItem;
begin
  Temporal:= ListView1.Items.Add;
  Temporal.Assign(ListView2.Items[ListView2.ItemIndex]);
  ListView2.Items[ListView2.ItemIndex].Delete;
end;

Muchas gracias a todos

Salud OS

[escafandra]

...Prueba de esta manera  :

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
Temporal: TListItem;
begin
    Temporal:= ListView2.Items.Add;
    Temporal.Assign(ListView1.Items[ListView1.ItemIndex]]);
end;

...aún no comprendo bien lo del uso de ese temporal, pero lo analizaré...

Bueno, era una forma de hacer mas comprensible el código para no hacer una línea demasiado larga. . Puede ponerse así, si lo prefieres:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
    ListView2.Items.Add.Assign(ListView1.Items[ListView1.ItemIndex]);
end;

De todas formas ese Temporal puede servir para manejar el item recien añadido por si precisas alguna cosa mas...


Saludos.