Quick Tips: Drag and Drop no List Box - Parte 1

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

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


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á !!!!


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?