9 respuestas en este tema

[Fenareth]

Hola chicos y chicas !!!!

Aquí de nuevo con mis preguntas  ....

Resulta que estoy haciendo una aplicación donde utilizo un CheckListBox para enlistar unos folios de documentos a utilizar en la aplicación.

El llenado de los items lo hago sin problemas pero quiero hacer unas condiciones para que el usuario elija por lo menos un Item de la lista por lo que hago esto:

delphi

{No se seleccionaron facturas}
    if Lista.SelCount = -1 then
     begin
        Showmessage('Es necesario seleccionar al menos un folio');
        bError := True;
     end;

El detalle es que Lista.SelCount siempre me manda un -1 tenga yo Items seleccionados o no y obviamente este error no me deja continuar.... 

Hasta donde he buscado en google comenta que este componente hereda del TListBox y que SelCount nos indica el numero de items seleccionados.

La ayuda de Delphi dice ésto:

SelCount  Indicates the number of selected items. 

Pero nomás no logro que me diga cuántos items tengo "checkeados"     

A alguien se le ocurre qué pueda estar pasando ? 

Saludox !

[Héctor Randolph]

Una pequeña anotación. Cuando el valor de la propiedad MultiSelect es False, SelectCount será -1.

Tal vez por ahí está el problema.

Saludos

[Fenareth]

Mmm, gracias Héctor pero MultiSelect no me aparece como propiedad para el CheckListBox ... (me parece que para el ListBox si es posible modificarlo)

Saludox !

[Héctor Randolph]

La propiedad MultiSelect y SelectCount se heredan de TCustomListBox y no te indican si han presionado sobre el checkbox, solamente te indica si están seleccionados los elementos que es algo distinto. No aparecen en el inspector de objetos pero si se tienen estas propiedades en CheckListBox.

Tal vez lo mejor será crear un ciclo a través del arreglo Checked[] para determinar si han pulsado sobre las casillas.

Saludos

[Fenareth]

La propiedad MultiSelect y SelectCount se heredan de TCustomListBox y no te indican si han presionado sobre el checkbox, solamente te indica si están seleccionados los elementos que es algo distinto. No aparecen en el inspector de objetos pero si se tienen estas propiedades en CheckListBox.

Tal vez lo mejor será crear un ciclo a través del arreglo Checked[] para determinar si han pulsado sobre las casillas.

Saludos

Gracias de nuevo amigo ...

Me supuse lo de la rutina pero pensé que estaba queriendo inventar el agua tibia ... en fin, lo dejamos como resuelto y aquí dejo la rutina por si a alguien le ahorra algo de trabajo (suceptible a mejoras ???... no lo dudo ni 2 segundos )

Saludox !

delphi

function TfrmSeleFacturas.ItemsSeleccionados: Integer;
var
  i, iCuantos: Integer;
begin
    iCuantos:= 0;
    for i := 0 to Lista.Count - 1 do
    begin
      if Lista.Checked[i] then
         begin
           iCuantos := iCuantos + 1;
         end;
    end;
    Result:= iCuantos;
end;

[egostar]

Hola

¿ Y porque no usar el evento OnClickCheck del componente ?

delphi

//Variable general
var
  contador: integer = 0;
 
//:::::::::
 
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  if CheckListBox1.State[CheckListBox1.ItemIndex] = cbChecked then
     inc(contador)
  else 
     dec(contador);
end;

Y muestras el resultado del contador donde quieras

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(contador));
end;

Salud OS

[andres1569]

Al hilo de este hilo  , me pregunto qué les hubiera costado a los desarrolladores de Delphi añadir una simple propiedad, llamémosle CheckCount, que indicara el número de elementos "checkeados". Mirando el código fuente en la VCL, hubiera sido muy fácil, y además se llevaría la cuenta al cambiar el estado de cada elemento, no sólo si se hace por un click del usuario sino también si se cambia por código.

[egostar]

Al hilo de este hilo  , me pregunto qué les hubiera costado a los desarrolladores de Delphi añadir una simple propiedad, llamémosle CheckCount, que indicara el número de elementos "checkeados". Mirando el código fuente en la VCL, hubiera sido muy fácil, y además se llevaría la cuenta al cambiar el estado de cada elemento, no sólo si se hace por un click del usuario sino también si se cambia por código.

Tienes toda la razòn.

No estaría nada mal pensar en hacernos un componente heredado de este que contenga dicha función 

Salud OS

[andres1569]

No estaría nada mal pensar en hacernos un componente heredado de este que contenga dicha función 

En realidad debería hacerse sobre el mismo componente por parte de sus creadores, ya que es una sola propiedad la que se pide, pero fíjate que incluso heredar un componente para eso tan simple sería imposible, ya que el método donde debe llevarse la cuenta, SetState, es privado. El caso es que los TCheckListBox existen desde Delphi 3 o 4, creo recordar, mira si ha llovido, pero nunca se hacen estas mejoras que no llevan ni 2 minutos de programación, así sucede con unos cuántos componentes "de siempre" que no han evolucionado (salvo aquellas propiedades comunes a TControl que Delphi ha ido incorporando en sucesivas versiones).

Sal U2

[egostar]

En realidad debería hacerse sobre el mismo componente por parte de sus creadores, ya que es una sola propiedad la que se pide, pero fíjate que incluso heredar un componente para eso tan simple sería imposible, ya que el método donde debe llevarse la cuenta, SetState, es privado. El caso es que los TCheckListBox existen desde Delphi 3 o 4, creo recordar, mira si ha llovido, pero nunca se hacen estas mejoras que no llevan ni 2 minutos de programación, así sucede con unos cuántos componentes "de siempre" que no han evolucionado (salvo aquellas propiedades comunes a TControl que Delphi ha ido incorporando en sucesivas versiones).

Sal U2

Bajo esa perspectiva, no hay mucho que hacer al respecto mas que usar algunas chapuzas.

Salud OS