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
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.