Mover todos los elementos entre dos listbox
 

Necesito traspasar todos los elementos de un Listbox1 a un Listbox 2 con un click de boton. Sin ser necesario seleccionar ningun elemento.

He conseguido hacerlo traspasando uno por uno, seleccionandolos uno por uno, pero todos de golpe?

El codigo utilizado para hacerlo uno por uno es,

listbox1.Items.Strings[listbox1.Itemindex]:=listbox2.Items.Strings[listbox2.Itemindex];

listbox2.Items.Delete.(listbox2.Itemindex);



Gracias de antemano

Hola

prueba a asignar toda la propiedad items, prueba algo como esto

Código Delphi [-]
listbox1.items:=listbox2.items
listbox2.items.clear

Saludos

Gracias ahora me funciona tal y como deseaba.

Gracias de nuevo