Que un CheckListBox funcione como un CheckBox

[rrf]

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]