F1
Ahora que si la tecla está muy dura aquí te va una idea:
Lo más sencillo es poner la propiedad DragMode del objeto que quieres arrastrar en dmAutomatic. En este caso el objeto que arrastras es ListBox1 ya que los ítemes en sí no son objetos.
Con esta propiedad podrás observar que al intentar arrastrar el ListBox1 el cursor del ratón
automáticamente cambia su forma al flechita con la hojita.
Esto es en cuanto al objeto que se arrastra. Por otro lado debes manejar los eventos OnDragOver y OnDragDrop del objeto destino (en este caso ListBox2).
OnDragOver se genera cuando hay un objeto arrastrándose sobre él. Este evento tiene tres parámetros importantes:
Sender - que es el objeto que genera el evento, es decir ListBox2 ya que sobre él estás arrastrando.
Source - que es el objeto que se está arrastrando, es decir ListBox1.
Accept - este es un parámetro por referencia y tu ajustas su valor dependiendo de si deseas o no aceptar el objeto que te quieren soltar ya que no necesariamente es ListBox1: podrías tener otros objetos arrastrándose:
Código:
procedure ListBox2DragOver(...):
begin
Accept := (Source = ListBox1);
end;
Si aceptas el objeto entonces se genera el evento OnDragDrop al momento en que se "suelte" el objeto.
En este evento es donde deberás hacer la inserción de los ítemes de ListBox1.
OnDragDroptambién tiene los parámetros Sender y Source iguales a los de OnDragOver de manera que puedes hacer un moldeo:
TListBox(Source) para acceder al ListBox que se arrastra. Claro que puedes usar directamente ListBox1 pero haciendo el moldeo a través de Source podrás habilitar ListBox2 para que reciba ítemes de más de un ListBox origen.
¿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:
Código:
DropIndex := ListBox2.ItemAtPos(Point(X, Y), true);
Esto pondría DropIndex igual al ítem sobre el cual sueltas los ítemes que arrastraste. Así con el método ListBox2.Items.Insert (en lugar de Add) insertarías los ítemes en dicha posición.
// Saludos