Informa��es entre Dois LIstbox

Question

Colegas,        Estou tentando escrever um algoritmo que fa�a a troca de itens entre dois listbox, de forma que quando um item retornar para a listbox de origem, ele retorne na posi��o exata que ocupa...

R�mulo Barros · Answer

[color=red:c0db3f6366][b:c0db3f6366]Passando o �tem selecionado de um Lb para outro Lb[/b:c0db3f6366][/color:c0db3f6366]

procedure TfrmAssocAreaLinha.AssociarUm(parOrigem, parDestino: TListBox);
begin
  If(parOrigem.ItemIndex <> -1)Then
  Begin
    parDestino.Items.Add(parOrigem.Items.Strings[parOrigem.ItemIndex]);
    intC := parOrigem.ItemIndex;
    parOrigem.DeleteSelected;
    If(parOrigem.Items.Count <> intC)Then
    Begin
      parOrigem.ItemIndex := intC;
    End
    Else
     Begin
        parOrigem.ItemIndex := intC - 1;
     End;
  End;
end;

[b:c0db3f6366][color=red:c0db3f6366]Passando todos os items de um lb para outro lb[/color:c0db3f6366][/b:c0db3f6366]

procedure TfrmAssocAreaLinha.AssociarTodos(parOrigem,
  parDestino: TListBox);
begin
  If(parOrigem.ItemIndex <> -1)Then
  Begin
    parOrigem.ItemIndex := 0;
    For intC := 0 To parOrigem.Items.Count -1 Do
    Begin
      parDestino.Items.Add(parOrigem.Items[intC]);
    End;
   parOrigem.Items.Clear;
  End;
end;

Pronto.. basta chamar a fun��o e passar os dois ListBox (Origem e Destino) como par�metros.

Muxagata · Answer

Valeu pela rotina, por�m ela n�o mant�m a posi��o original quando retorna ao listbox de origem.Mesmo assim, valeu!...

F�rum Informa��es entre Dois LIstbox #235800