Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Que un CheckListBox funcione como un CheckBox (https://www.clubdelphi.com/foros/showthread.php?t=80900)

rrf 18-01-2010 12:48:32

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:

Código Delphi [-]
var
  Se_Modifico  : boolean ;

Luego, en estos 2 eventos del CheckListBox añadimos el código como en este ejemplo:

Código Delphi [-]
  
procedure TCrea_Instala.CheckListBox1ClickCheck(Sender: TObject);
begin
                      // Indica que se modificó el item seleccionado
  Se_Modifico := True ;

end;

procedure TCrea_Instala.CheckListBox1Click(Sender: TObject);
begin
  if ( not se_modifico )
   then
     if CheckListBox1.State[ CheckListBox1.ItemIndex ] = ( cbChecked )
       then CheckListBox1.State[ CheckListBox1.ItemIndex ] := ( cbUnChecked )
       else CheckListBox1.State[ CheckListBox1.ItemIndex ] := ( cbChecked ) ;
  se_modifico := False ;

end;

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.

rrf 25-02-2010 00:37:24

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]

rrf 25-02-2010 00:40:18

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]

BrunoBsso 26-02-2010 06:07:43

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:
Código Delphi [-]
if ChLB1.State[ChLB1.ItemIndex] =(cbChecked) then
  ChLB1.State[ChLB1.ItemIndex ]:=(cbUnChecked)
else
  ChLB1.State[ChLB1.ItemIndex]:=(cbChecked);

Saludos!

roman 24-03-2010 22:59:22

Una alternativa

Código Delphi [-]
with Sender as TCheckListBox do
  State[ItemIndex] := TCheckBoxState(1 - Ord(State[ItemIndex]));


La franja horaria es GMT +2. Ahora son las 07:31:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi