Olá galera, nesta Quick Tips mostrarei como fazer um DragDrop(arrastar e soltar) entre Listboxes.

Vamos ao exemplo:

Adicione 2 ListBoxes (ListaPaises(Acione na propriedade Items do mesmo, os países listados), ListaViagens) altera a propriedade DragMode para dmAutomatic, nos dois ListBoxes;

Adicione 5 Botões (btnViagens, btnTodasViagens, BtnPaises, BtnTodosPaises, btnOk)

Adicione um Bevel1




Selecione btnViagens e no evento onClick, implemente:



Neste parte do código testamos para ver se existe um item selecionado, caso tenha, pegamos este item e adicionamos no outro Listbox, e deletamos o item corrente do ListBox selecionado. Selecione btnTodasViagens e no evento onClick, implemente:



Estamos varrendo o ListaPaíses, para poder adicionar todos os itens do mesmo, no ListaViagens, através de um Loop.Selecione BtnPaises e no evento onClick, implemente:



Neste parte do código testamos para ver se existe um item selecionado, caso tenha, pegamos este item e adicionamos no outro Listbox, e deletamos o item corrente do ListBox selecionado. Selecione BtnTodosPaises e no evento onClick, implemente:



Estamos varrendo o ListaViagens, para poder adicionar todos os itens do mesmo, no ListaPaíses, através de um Loop.

Com isso programamos o click de todos os botões. Onde esta o Drag and Drap ? Por enquanto não está mas na parte 2 faremos esta implementação.

Abraços e até lá !!!!