Buscar por:

Trabalhando com dois listbox

Código

//nesta dica você irá precisar no seu form:

//duas listas (TListBox) - Mudar a propriedade multiselect para True

//quatro botões (TButton)

//Button1.Caption = '>>';

//Button2.Caption = '>';

//Button3.Caption = '<';

//Button4.Caption = '<<';

procedure TForm1.Button2Click(Sender: TObject);

begin

  //move a os itens selecionados para a lista2  (>)

  ListBox1.MoveSelection(ListBox2);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  //move a os itens selecionados para a lista1 (<)

  ListBox2.MoveSelection(ListBox1);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  //copia todos os itens da lista2 para a lista1 (>>)

  ListBox2.Items.Text := ListBox2.Items.Text + ListBox1.Items.Text;

  //limpa a lista1

  ListBox1.Clear;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  //copia todos os itens da lista2 para a lista1 (<<)

  ListBox1.Items.Text := ListBox1.Items.Text + ListBox2.Items.Text;

  //limpa a lista2

  ListBox2.Clear;

end;