Ver Mensaje Individual
  #2  
Antiguo 25-02-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
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]
Responder Con Cita