items de um listbox para outro

Question

pessoal gostaria de saber como fazer para que ao duplo clique em um item de um listbox(listbox1) ele passase para outro listbox(listbox2) e que se apagasse do listbox origem e vice e versa como naquel...

Pockm · Answer

Eu pelo faria da seguinte forma:

procedure TForm1.Button1Click(Sender: TObject);
begin

//ListBox1 � onde est�o meus itens
//ListBox2 � para onde vou envialos

//Verifica se existe algum item selecionado
if ListBox1.ItemIndex < 0 then
begin
showmessage( �Nenhum Selecionado� );
exit;
end;

// Adiciona o item no ListBox2
ListBox2.Items.Add( ListBox1.Items.Strings[ListBox1.ItemIndex] );
// Exclui o item do ListBox1
ListBox1.Items.Delete(ListBox1.ItemIndex);

//Coloca os dois listbox em ordem alfab�tica
ListBox1.Sorted := True;
ListBox2.Sorted := True;
end;

Pockm · Answer

[quote:0a35d5bc27=�pockm�]Eu faria da seguinte forma: procedure TForm1.Button1Click(Sender: TObject); begin //ListBox1 � onde est�o meus itens //ListBox2 � para onde vou envialos //Verifica se existe algum item selecionado if ListBox1.ItemIndex < 0 then begin showmessage( �Nenhum Selecionado� ); exit; end; // Adiciona o item no ListBox2 ListBox2.Items.Add( ListBox1.Items.Strings[ListBox1.ItemIndex] ); // Exclui o item do ListBox1 ListBox1.Items.Delete(ListBox1.ItemIndex); //Coloca os dois listbox em ordem alfab�tica ListBox1.Sorted := True; ListBox2.Sorted := True; end;[/quote:0a35d5bc27]...

Massuda · Answer

O pr�prio Delphi pode gerar um form com isso para voc�... v� em [b:76741b86da]File|New[/b:76741b86da] (ou [b:76741b86da]File|New|Other[/b:76741b86da]), clique na aba [b:76741b86da]Forms[/b:76741b86da] e selecione [b:76741b86da]Dual list box[/b:76741b86da].

Mhdragon-rs · Answer

um muito obrigado ao amigos que responderam e tiraram minhas duvidas :D...

F�rum items de um listbox para outro #275232