Ver Mensaje Individual
  #1  
Antiguo 18-01-2010
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Reputación: 21
rrf Va por buen camino
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.
Responder Con Cita