drag-and-drop
como eu faço para com o evento drag-and-drop
arrastar o conteudo de um list box para o outro ????????
arrastar o conteudo de um list box para o outro ????????
Chiquinhojunior
Curtidas 0
Respostas
Rmfb
17/05/2003
:shock: Caro chiquinho, siga os seguintes passos:
1 - No listbox1, mude o conteúdo da propriedade DragMode para Automático.
//Pronto, agora quando você pressionar o mouse sobre qualquer linha do listbox1, irá aparacer aquela bolinha de drag.
2 - No evento OnDragOver do LISTBOX2, digite o seguinte código:
If(TlistBox(Sender).Name = Tlistbox(Sender).Name) Then
Accept:=False;
//Se Accept for true, então o evento OnDragDrop será executado.
3 - No Evento OnDragDrop do LISTBOX2 digite:
If(Listbox1.Itemindex <> -1) Then
Listbox2.items.add(listbox1.items.strings[listbox1.itemindex]);
Listbox1.delete(listbox1.itemindex);
// Se itemindex do listbox1 for diferente de -1 é por que tem linha selecionada, ou seja, ele só vai executar o comando acima, caso alguma linha esteja selecionada....
Siga os mesmos passos para o inverso da operação...
Se você quiser tudo bem detalhado, manda um e-mail pra mim que eu te explico ou mando pra ti o código completo....
ESPERO TER AJUDADO:
1 - No listbox1, mude o conteúdo da propriedade DragMode para Automático.
//Pronto, agora quando você pressionar o mouse sobre qualquer linha do listbox1, irá aparacer aquela bolinha de drag.
2 - No evento OnDragOver do LISTBOX2, digite o seguinte código:
If(TlistBox(Sender).Name = Tlistbox(Sender).Name) Then
Accept:=False;
//Se Accept for true, então o evento OnDragDrop será executado.
3 - No Evento OnDragDrop do LISTBOX2 digite:
If(Listbox1.Itemindex <> -1) Then
Listbox2.items.add(listbox1.items.strings[listbox1.itemindex]);
Listbox1.delete(listbox1.itemindex);
// Se itemindex do listbox1 for diferente de -1 é por que tem linha selecionada, ou seja, ele só vai executar o comando acima, caso alguma linha esteja selecionada....
Siga os mesmos passos para o inverso da operação...
Se você quiser tudo bem detalhado, manda um e-mail pra mim que eu te explico ou mando pra ti o código completo....
ESPERO TER AJUDADO:
GOSTEI 0