FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Que un CheckListBox funcione como un CheckBox
Hola.
Los CheckListBox son muy prácticos en ocasiones, pero tienen el defecto de que, en ellos, solo se pueden seleccionar o deseleccionar un item si se hace clic en el recuadro pequeño que indica si el item está seleccionado o no. Como el recuadro suele ser bastante pequeño (depende el tamaño de fuente que tenga), pues resulta un poco incómodo estar afinando la posición del puntero del ratón para hacer clic. Lo ideal sería que funcionaran como lo hacen los CheckBox, que con hacer clic en el texto (o en el recuadro) se queda marcado o desmarcado. Para lograr eso, está este truquito. Hay que declarar como pública una variable de tipo boolean. Como este ejemplo:
Luego, en estos 2 eventos del CheckListBox añadimos el código como en este ejemplo:
Y nada más. Espero que les sea útil. Ramón. P.D. Lamento que el código no salga mejor presentado, pero no he logrado colocar adecuadamente las etiquetas que lo hacen. |
#2
|
|||
|
|||
Hola de nuevo.
Aquí está otra solución más sencilla de aplicar y que funciona bien. Es una mejora de BrunoBsso que tuvo la amabilidad de compartirla. [delphi] procedure TForm1.CheckListBox1Click(Sender: TObject); begin with CheckListBox1 do begin if (State[ItemIndex] = (cbChecked)) then State[ItemIndex]:=(cbUnchecked) else State[ItemIndex]:=(cbChecked); end; end; [delphi] |
#3
|
|||
|
|||
Hola de nuevo.
Aquí está otra solución más sencilla de aplicar y que funciona bien. Es una mejora de BrunoBsso que tuvo la amabilidad de compartirla. [delphi] procedure TForm1.CheckListBox1Click(Sender: TObject); begin with CheckListBox1 do begin if (State[ItemIndex] = (cbChecked)) then State[ItemIndex]:=(cbUnchecked) else State[ItemIndex]:=(cbChecked); end; end; [delphi] |
#4
|
|||
|
|||
No se si seré el único, pero no puedo leer lo que escribiste poniendo la solución que te pasé yo.
Por las dudas, la escribo ahora:
Saludos! |
|
|
|