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