Passar informações de um listbox para outro

Delphi

12/07/2004

Galera,

Como faço para passar as informações de um listbox para outro. Eu preciso passar várias informações ao mesmo tempo (multselect).

Alguém pode me ajudar,

Ricardo



[color=red:66f36ccc04][b:66f36ccc04]Título editado pelo moderador Nildo[/b:66f36ccc04][/color:66f36ccc04]


Rvsantos

Rvsantos

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

12/07/2004

Listbox1.Items := Listbox2.Items;
:lol:


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

12/07/2004

var
  I: Integer;
begin
  ListBox2.Clear;
  for I := 0 to listBox1.Count do
    if ListBox1.Selected[I] then
      ListBox2.Items.Add(ListBox1.Items[I]);
end;


seria isso?
ele manda p/ o segundo listbox apenas os itens selecionados no 1º.


GOSTEI 0
Rvsantos

Rvsantos

12/07/2004

[quote:20acbffb53=´Marcelo Saviski´]
var
  I: Integer;
begin
  ListBox2.Clear;
  for I := 0 to listBox1.Count do
    if ListBox1.Selected[I] then
      ListBox2.Items.Add(ListBox1.Items[I]);
end;


seria isso?
ele manda p/ o segundo listbox apenas os itens selecionados no 1º.[/quote:20acbffb53]

Caro Marcelo,

Muito obrigado... era isso mesmo que precisava....


GOSTEI 0
Zlink

Zlink

12/07/2004

var
I: Integer;
begin
ListBox2.Clear;
for I := 0 to listBox1.Count-1 do
if ListBox1.Selected[I] then
ListBox2.Items.Add(ListBox1.Items[I]);

Agora sim funciona


GOSTEI 0
POSTAR