Listbox

[Fernando_Ramos]

Amigos,

possuo 2 listbox, no meso form. queria saber como fazer para quando clicar no botão ele enviar o item selecionado na primeira lstbox, para a segunda.

obrigado

[Progr'amador]

Assim:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
   for i := 0 to ListBox1.Items.Count-1 do begin
      ListBox2.Items.Add(ListBox1.Items[i]);
   end;
end;

Abs. Progr'amador.

[Fernando_Ramos]

mais nesse caso ele ira colocar todos os itens do primeiro listbox né!!

eu queria que fosse apenas os selecionados pelo usuario.

[Progr'amador]

AATAAA!!!!

então faz o seguinte: na propriedade MultiSelect do ListBox1, coloque TRUE.

e use o seguinte codigo:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to ListBox1.Items.Count-1 do begin
     if ListBox1.Selected[i]= true then
        ListBox2.Items.Add(ListBox1.Items[i]);
  end;
end;

Ok?

Abs. Progr'amador