ActiveDelphi

[ramosinfo]

Olá a todos,

Quero colocar dois ListBox na tela e um botão. No primeiro ListBox eu carregaria os dados da tabela origem. O usuário então selecionaria um dados e clicaria no botão. Neste momento eu quero pegar o item selecionado e passar para o outro ListBox e ao mesmo tempo gravaria o novo dado na tabela de destino.

Alguém sabe fazer isso? Obrigado!

[paschoal]

Cara, eu fiz aqui pra concatenar os 2 listboxs... agora é só você implementar com o que você precisa pra alterar no banco. Segue abaixo o procedimento:


procedure TForm1.Button1Click(Sender: TObject);
begin
if(listbox1.selected[listbox1.itemindex] <> false ) then
begin
listbox2.items.Add(ListBox1.items[listbox1.itemindex])
end
else
ShowMessage ('Nada no listbox1 foi selecionado');
end;