Hola tengo que terminar el código de un programa, en un list box puedo seleccionar uno o varios items (active multiselect) y copiarlos a otro list box, pero hasta ahora lo único que logré fue pasar solamente una linea. Adjunto el código.
Para que entiendan lo que hace, tengo 2 listbox uno que se llama alquiler y otro ventas, y lo que tengo que hacer es mostrar en un tercer list box, el texto que seleccione de cualquiera de los 2 listbox.
Código Delphi
[-]
procedure TFInmobiliaria.Pasaramostrar2Click(Sender: TObject);
var
NroLinea:integer;
Linea:string;
begin
if LBAlquiler.SelCount>0
then
begin
NroLinea:=LBAlquiler.ItemIndex; linea:=LBAlquiler.Items.Strings[NroLinea]; LBMostrar.Items.Add(Linea); end;
end;