FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Duda con un TlistBox(eliminar un Item!! )
Buenas!!
os Expongo mi duda para ver si alguien me puede ayudar... :S k toy ahora mismo un poco cansado de pensar, y paso por aqui a ver si alguien me puede ayudar. Duda: tengo un TlistBox, y me interesa que despues de pulsar el botonEliminar me coja un item(el que tenga seleccionado) i me lo quite del listBox. espero haver explicado bien mi duda... Os pongo mi trocito de codigo y a ver si alguien me puede hechar una mano... Código:
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject); begin if lbClassesSeleccionades.Items.count<>0 then begin lbClassesSeleccionades.Items.Delete( ); //Esto es lo que no enkuentro... end; end; Muchissimas GRACIAS de antemano!!!
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#2
|
||||
|
||||
Vuelvo a ser yo....
Encontre ahora mismo la solcion...
Código:
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject); begin if lbClassesSeleccionades.Items.count<>0 then begin lbClassesSeleccionades.Items.Delete(lbClassesSeleccionades.ItemIndex); end; end; muchas gracias por si alguien estaba intentando contestarme.......
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#3
|
||||
|
||||
Un pequeño detalle:
Que haya elementos en la lista no significa que hay uno seleccionado. A la vez propongo una forma rápida de borrar todos los elementos con el mismo código, si no hay seleccionado ninguno,borramos el ultimo.
Saludos |
#4
|
||||
|
||||
Hola Lepe,
Ayer estaba a punto de señalar algo parecido en cuanto a lo de verificar qe ItemIndex fuese distinto de -1 pero observé que, al menos en Delphi7, el método Delete no falla aun con Delete(-1) de manera que no es necesaria la comprobación. // Saludos |
|
|
|