items de um listbox para outro
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 naquela caixa de dialogo do projet options em definimos para quais formularios é alocado memoria no delphi
se alguem puder me ajudar ficarei muito grato abraços
se alguem puder me ajudar ficarei muito grato abraços
Mhdragon-rs
Curtidas 0
Respostas
Pockm
02/04/2005
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;
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;
GOSTEI 0
Pockm
02/04/2005
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;
GOSTEI 0
Massuda
02/04/2005
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].
GOSTEI 0
Mhdragon-rs
02/04/2005
um muito obrigado ao amigos que responderam e tiraram minhas duvidas
:D
:D
GOSTEI 0