Ni idea del drag and drop

[radge]

Empezado por roman

¿Cómo insertas los ítems?

Bueno, teniendo acceso a ListBox1 sólo debes recorrer sus ítemes en un ciclo. En cada vuelta del ciclo verificas si el ítem está selecionado (ListBox1.Selected[Indice] es true) y en dado caso usas ListBox2.Items.Add para insertarlo.

Si quieres más control sobre dónde insertar los ítemes (con Add los insertas al final de la lista) puedes usar los parámetros X,Y del evento OnDragDrop así como el método ItemAtPos para determinar sobre qué item se soltaron los ítemes:


// Saludos

Buenas , gracias por tu "tutorial" estoy probando esto con delphi5 , me he quedado encallado en lo del ciclo , se recorrer el listbox por los indices , pero no como recuperar los valores que tengo almacenados.

Alguna idea ?


Me he quedado trabado aki , a ver k os parece.

Código Delphi [-]
procedure TfrmdesglosePedido.destiListboxDragDrop(Sender, Source: TObject;
  X, Y: Integer);
var DropIndex : integer;
var I : integer;
begin
   for I := origenListbox.Items.Count - 1 downto 0 do
      begin
         if origenListbox.Selected[i] = True then
            begin
                //añadimos al 2 listbox
                destiListbox.Items.Add(inttostr(I));
                //borramos del 1º listbox
                origenListbox.Items.delete(I);
            end;
      end;
end;

gracias , radge