Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Passar itens de um listBox para outro


Recife

Pergunta

Pessoal,

estou precisando de um rotina em que tenho um listbox1 na esquerda com itens carregado dinamicamente. Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

O caminho é mais ou menos por aqui:

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

Link para o comentário
Compartilhar em outros sites

  • 0
Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

O caminho é mais ou menos por aqui:

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

Mais uma vez obrigado Micheus, RESOLVEU.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...