unir listbox arrastando

Question

Pessoal, minha d�vida � a seguinte: tenho 2 listbox e uma stringgrid.eu queria arrastar um item da listbox da direita para dentro da listbox da esquerda, grudando-o (ou selecionando) um item desta da ...

Rgaffo · Answer

Boa tarde,N�o sei bem como fazer, s� sei que para fazer esse recurso vc tem que usar Drag and Drop, pesquise sobre isso.Se vc observar os objetos tem o evento OnDraDrop (Ao arrastar e soltar).Falow....

Marco Salles · Answer

So para dar um pontape inicial.. Outras maneiras ir�o surgir.
Bem eu n�o entendi o que voce queis dizer com [b:37e2ed41e7]grudando-o (ou selecionando)[/b:37e2ed41e7] mas se o problema inicial for arrastar e soltar aqui vai um exemplo com dois list Box

1)[b:37e2ed41e7] propriedade do DragMode dos ListBox em dmAutomatic[/b:37e2ed41e7]

2) coloque a titulo de experimento o codigo abaixo;

var
i:Integer;

{$R *.DFM}

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
texto:String;
begin
   accept:=false;
   texto:=ListBox2.items.strings[i];
   if listbox1.Items.IndexOf(texto) < 0  Then
     accept:=true;
end;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
texto:String;
begin
accept:=false;
texto:=ListBox1.items.strings[i];
if listbox2.Items.IndexOf(texto) < 0  Then
accept:=true;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
i:=ListBox2.ItemIndex;
ListBox1.Items.Add(ListBox2.items.strings[i]);
ListBox2.Items.Delete(i);
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
i:Integer;
begin
i:=ListBox1.ItemIndex;
ListBox2.Items.Add(ListBox1.items.strings[i]);
ListBox1.Items.Delete(i);
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
i:=ListBox2.ItemIndex;
if i >= 0 Then
begin
  ListBox2.onDragOver:=nil;
  ListBox1.OnDragOver:=ListBox1DragOver;
end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
i:=ListBox1.ItemIndex;
if i >= 0 Then
begin
  ListBox1.onDragOver:=nil;
  ListBox2.OnDragOver:=ListBox2DragOver;
end;
end;

Vitor Rubio · Answer

o que eu quis dizer foi o seguinte: quando eu arrastar o item da listbox1 pra listbox2, o item n�o vai para a listbox2, nem precisa ser deletado da listbox1.
Quando eu �Encostar� o item arrastado da listbox1 em algum item da lisbox2, ambos, tanto o que eu arrastei quanto o que foi �tocado� por ele v�o para um stringgrid.

� possivel fazer isso?

Marco Salles · Answer

[quote:679a433f98]o que eu quis dizer foi o seguinte: quando eu arrastar o item da listbox1 pra listbox2, o item n�o vai para a listbox2, nem precisa ser deletado da listbox1. [/quote:679a433f98]isto n�o altera a id�ia que tentei passar ...� so alterar o c�digo de inser��o e ilimina��oVamos supor que o ao inves de um edit voce que colocar o conteudo em um edit.. Para o caso de um StringList voce faz uma adapta��oBasta isso:[code:1:679a433f98]vari:integer;[/code:1:679a433f98]{$R *.DFM}[code:1:679a433f98]procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);begin  edit1.text:=ListBox1.Items.Strings&#91;i&93;;end;[/code:1:679a433f98][code:1:679a433f98]procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean);begini:=ListBox1.ItemIndex;if i >= 0 Then   accept:=Trueelse  accept:=False;end;[/code:1:679a433f98]Agora apara a segunda situa��o:[quote:679a433f98][b:679a433f98]Quando eu �Encostar� o item arrastado da listbox1 em algum item da lisbox2, [/b:679a433f98][/quote:679a433f98]encostar sera complicado , porque o conteudo do listBox acredito que n�o� gr�fico...  :idea:  :idea:  :idea: Mas voce pode mandar para o StringList todo o conteudo do ListBox2 que estiver selecionado , juntamente com o conteudo do listBpox1 que fora arrastado para o ListBox2 , Basta fazer uma pequena modifica��o:[code:1:679a433f98]procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);beginedit1.text:=ListBox1...

Vitor Rubio · Answer

eu entendi. Mas ser� que da pra fazer isso ent�o: quando eu arrastar um item da lista1 pra lista2, automaticamente ser� selecionado o item da lista2 que estiver debaixo do ponteiro do mouse?

se eu conseguir fazer isso, a� eu estarei com um item selecionado em cada lista, e ao soltar o bot�o do mouse, ambos ser�o deletados e incluidos na minha stringgrid assim:

campo |valor
(item arrastado da lista1)|(item debaixo do mouse na lista2)
.... |.....

Isso enriqueceria bastante uma interface com o usu�rio, pois ficaria igual a algumas telas do access, por exemplo, onde � s� arrastar e soltar um valor de um campo pra outro. (na tela de relacionamentos por exemplo, onde vc une duas chaves de tabelas diferentes arrastando o nome da chave).

piconclado, n�?

Marco Salles · Answer

fiz esta rotina para fonte.size do ListBox2 maior ou igual a 8
resolu��o 800X600 pixels , monitor de 17...
� so uma id�ia inicial , talvez lhe sirva em fun��o de sua necessidade..
Por exemplo um tamanho fixo de elementos no ListBox, sem a barra de rolagem ,
No mais apos entender o que se passa talvez ea para adaptar a sua necessidade

implementation

var
i:integer;

{$R *.DFM}

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
i:=ListBox1.ItemIndex;
if i >= 0 Then
   accept:=True
else
  accept:=False;
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
edit1.text:=ListBox1.Items.Strings[i];
if ListBox2.ItemIndex >=0 Then
edit1.Text:=Edit1.text+ ListBox2.Items.Strings[ListBox2.ItemIndex] ; 
end;

******[b:4320ffbc93]este evento esta relacionado com o ListBox1[/b:4320ffbc93]

procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
var
 fonte:integer;
 correcao:integer;
begin
fonte:=ListBox2.Font.Size;
correcao:=fonte+8;
y:=y div (correcao);
if y <= ListBox2.Items.Count-1 then
  edit1.text:=edit1.text+ListBox2.Items.Strings[y];
end;

testei com varias fontes do listbox e aparentemente os resultados forama satisfatorios.. A maior dificuldade no entanto e achar a melhor rela��o entre o Y do evento ListBox1EndDrag , que esta como inteiro , para o numero de pixels que cada fonte ocupa dentro do ListBox

Marco Salles · Answer

� ja vi que voce n�o gostou :cry: :cry: ... Nao respondeu nada :cry:
Achou meio gambiarra n� :lol: .. Mas podia ter opinado. :evil:
:D :D Mas sou insistente e sempre durmo com o problema

:idea: :idea:
[b:5607cfdfb8]Segue sem a gambiarra :[/b:5607cfdfb8]

var
i:integer;
arrastou:boolean;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 i:=ListBox1.ItemIndex;
if i >= 0 Then
   accept:=True
else
  accept:=False;
end;

procedure TForm1.ListBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var pt:TPoint;
begin
if arrastou then
begin
  pt.X := X;
  pt.Y := Y;
  ListBox2.ItemIndex := ListBox2.ItemAtPos(pt, true);
  if ListBox2.ItemIndex >= 0 Then
  edit1.text:=ListBox1.Items.Strings[i]+ListBox2.Items[ListBox2.ItemIndex]
  else
   edit1.text:=ListBox1.Items.Strings[i]+ListBox2.Items[listbox2.Items.Count-1];
  arrastou:=False;
 end;
end;

procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
arrastou:=True;
end;

[b:5607cfdfb8]Acho que desta vez foi n� [/b:5607cfdfb8] :?: :?: :?: :?: