Checklistbox. Total de elementos marcados
 

Hola,

alguien sabe como en un Checklistbox se puede saber de forma facil, rapida, directa el Total de elementos marcados?

es decir, sin tener que revisar uno a uno y ver si estas marcados e irlos contando.

he revisado las propiedades pero no veo forma.

pudieran ayudarme?

gracias

Hola Anel.

El componente TCheckListBox no tiene una propiedad o función que devuelva la cantidad de items marcados. Se me ocurren dos posibilidades la primera es la que comentas arriba, revisar los items e ir contándolos:

Código Delphi [-]
...
var
  TotalCheck: Integer = 0;

function TotalMarcados(ChkLB: TCheckListBox): Integer;
var
  i: Integer;
begin
  Result:= 0;
  for i:= ChkLB.Count-1 downto 0 do
    if ChkLB.Checked[i] then
      Inc(Result);
end;
...

La segunda es aprovechar el evento OnClickCheck que se dispara cuando un ítem es seleccionado o viceversa:

Código Delphi [-]
...
var
  TotalCheck: Integer = 0;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
   with Sender as TCheckListBox do
    if Checked[ItemIndex] then
      Inc(TotalCheck)
    else
      Dec(TotalCheck)
end;

Saludos.