FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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... ------------------------
|
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|