| Pregunta: | 5632 - PROBLEMAS CON TLISTBOX |
| Autor: | Diego |
| Hola a toda la gente de LWP.
Ahi va mi pregunta: Tengo un componente Tlistbox con la propiedad Multiselect a true, y necesito asignar al caption de un TLabel el texto de cada uno de los items seleccionados en el Tlistbox. Lo he intentado combinando las propiedades selected, selectcount y la propiedad text del objeto TSring, pero me encuentro con que me coge todos los items del Tlistbox sin diferenciarme cuales estan selecionados y cuales no. Tambien lo he intentado con la funcion gettext, pero como no se cual es el delimitador que utiliza delphi para separar los items dentro de un Tlistbox, lo unico que consigo es que me entre en un bucle sin fin. Agradeceria cualquier tipo de ayuda que me pudieran ofrecer. Muchas gracias por su atencion. | |
| Respuesta: | Víctor Hugo Garrido Esparza |
| Hola Diego,
Te mando el código asignado al evento click de un botón, el cuál realiza el proceso que describes. Espero y sea esto a lo que te referías, y si no, que te sirva de base para lograrlo. procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; Label1.Caption:=''; with ListBox1 do begin if selcount > 0 then for i := 0 to Items.Count-1 do if selected[i] then Label1.Caption:= Label1.Caption + Items[i]; end; end; Este código asume la existencia de una forma con una etiqueta, un listbox y un botón únicamente. | |