Los LISTBOX son prácticos en caso de que se tengan que hacer un sistema en el cual se tienen que mostrar una lista de ítem en la cual el usuario pueda verlas todas en una sola vista para mejor información,  pueden ver por ejemplo productos como en una grilla y tiene la usabilidad de un COMBOBOX, vamos a hacer un programa para poder simular vender productos de una lista de productos que estén almacenados en nuestro LISTBOX y los elementos elegidos los pasaremos a otro LISTBOX, como si fuese un recibo el segundo LISTBOX.

Vamos a realizar este trabajo paso a paso empezando a crear el proyecto desde cero, entonces vamos empezando creando nuestro proyecto en DELPHI 2010, como se muestra en la ilustración siguiente:

Ahora vamos a diseñar nuestro formulario de la siguiente manera para poder realizar la tarea descrita, vamos a adherir dos LISTBOX y dos botones uno para pasar ítems y otro para borrar ítems, entonces trabajemos en nuestro formulario para que nos quede de la siguiente manera con los componentes ya descritos anteriormente:

Ahora adicionemos ítems al primer LISTBOX, lo hacemos de la siguiente manera le hacemos un solo clic en LISTBOX1 y después nos dirigimos al inspector de objetos que está en la parte izquierda inferior del formulario, y buscamos  su propiedad ITEM y le hacemos doble clic, para que nos salga la ventana donde escribiremos los ítems necesarios, la siguiente imagen muestra el inspector de objetos con la propiedad ITEM donde hay que hacerle doble clic:

Una vez hecho doble clic en la propiedad ITEM donde dice TSTRIGS demarcado de azul en la imagen de arriba nos saldrá una ventana donde escribiremos los siguientes ítems como se muestra en la siguiente imagen:

Después de escribir nuestra lista de productos hacemos clic en OK y luego ya se verán nuestros ítems en nuestro formulario en nuestro primer componente LISTBOX1 como se muestra en la siguiente imagen:

Ahora vamos a escribimos el código para que cuando hagamos clic en un ítem del LISTBOX1 y después clic en el BUTTON1 pasemos el ítem seleccionado al LISTBOX2, para eso hacemos doble clic en el BUTTON1 y entramos al editor de código, del BUTTON1 donde escribimos el siguiente código:

//primero verificamos que haya elegido un item del LISTBOX1

if (ListBox1.ItemIndex>(-1)) then

begin

  ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

end

else

   ShowMessage('Debes escoger un producto de la lista de la izquierda');

end;

La siguiente imagen es una fotografía del código del editor de código de DELPHI 2010 con el código anterior:

Ahora para eliminar un elemento del LISTBOX2 en caso que nos hayamos equivocado en pasar un ítem del LISTBOX1, para eso entramos en el segundo BUTTON2 haciéndoles doble clic y abriendo otra vez el editor de código:

Ahora escribimos el siguiente código:

ShowMessage('Elige un elemento de la lista derecha para eliminar');

Como se muestra en la siguiente imagen:

Ahora solo guarda y ejecuta el proyecto para que puedas probar nuestro ejemplo.

¿Quieres ser el primero en opinar sobre Pasar datos de un Listbox a otro en Delphi 2010?