Dudas con un CheckList...

[darkphantom]

veamos tengo estas dudas:

1. como controlo los items seleccionados? necesito seleccionar 4 de una lista.... si los "selecciono" si se, pero al deseleccionar????

2. le puedo poner "iconitos" dentro?? he visto hacerlo en un LiSTBOX por eso pregunto.

3. komo obtengo los items completos ?? por ejemplo le pongo al item "cuadrado" y me envia "uadrado".

por el momento estas son mis dudas......alguien me ayuda?
se los agradeceria mucho.

[joHn je@N]

Espero te ayude. Nunca he usado ese componente(soy novato pero, con ganas de ayudar). Y logre esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin    
ckbox.AddItem('item ' + IntToStr(ckbox.Count + 1), self);    
Label1.Caption := 'Has agregado ' + 'item ' + IntToStr(ckbox.Count); 
end;  

procedure TForm1.ckboxClickCheck(Sender: TObject); 
begin    
if ckbox.Checked [ckbox.ItemIndex] then       
Label1.Caption := 'Seleccionado: ' + ckbox.Items.Strings [ckbox.ItemIndex]    
else       
Label1.Caption := 'Deseleccionado: ' + ckbox.Items.Strings [ckbox.ItemIndex]; 
end;

SALUDOS!!!

[[Bicho]]

Empezado por darkphantom

1. como controlo los items seleccionados? necesito seleccionar 4 de una lista.... si los "selecciono" si se, pero al deseleccionar????

2. le puedo poner "iconitos" dentro?? he visto hacerlo en un LiSTBOX por eso pregunto.

3. komo obtengo los items completos ?? por ejemplo le pongo al item "cuadrado" y me envia "uadrado".

1) ¿Lo puedes explicar? No entiendo nada. ¿Deseas controlar cuando se ha deseleccionado un item?

2) En un CheckList creo que no, pero puedes usar el TreeView de la pestaña Win32 que te permite establecer jerarquias y poner iconos y hacer multiselects, pero ahora que miro creo que no tiene el Check para marcar un item.

3) Tampoco lo entiendo, algo debes hacer para que te borre el primer carácter. ¿Puedes poner esa parte de código?

Saludos

[darkphantom]

en cuanto a joHn je@N. voy a probar el codigo a ver ke sale y te aviso hermano, yo no soy experto, pero si he usado, y ahorita la verdad akabo de temrinar un proyecto y no me da mucho la cabeza para pensar , te agradezko el codigo y si no va, buscare la idea ke das para adaptarla,
gracias.

en cuanto a lo de bicho:

1. si, deseo controlarlo, porke kiero tener 4 items seleccionadas MAXIMO, y si selecciono 4 si puedo controlarlo, pero si el usuario des-selecciona 1, pierdo el control de los 4.

2. he usado en los LISTBOX junto a un IMAGELIST el ponerles dibujitos (iconitos) pero kiero ver si con el checklist se puede.

3.pues para obtenerlo solo hago :

Código Delphi [-]
dato:=checklist.itemindex;
stringgrid1.cell[0,i]:=checklist1.items.valuefromindex[dato];

[[Bicho]]

Empezado por darkphantom

1. si, deseo controlarlo, porke kiero tener 4 items seleccionadas MAXIMO, y si selecciono 4 si puedo controlarlo, pero si el usuario des-selecciona 1, pierdo el control de los 4.

2. he usado en los LISTBOX junto a un IMAGELIST el ponerles dibujitos (iconitos) pero kiero ver si con el checklist se puede.

3.pues para obtenerlo solo hago :
stringgrid1.cell[0,i]:=checklist1.items.valuefromindex[dato];

Vamos a ver:

1) No tienes que perder el control de eso. El checkListBox tiene la propiedad Selected a la que le indicas el indice que quieres saber si está seleccionado y te devuelve true o false
2) No veo nada al respecto
3) No se de donde sacas ValueFromIndex. Debería bastarte con esto:

Código Delphi [-]
stringgrid1.cell[0,i]:=checklist1.items.strings[dato];

A todo ésto. ¿que versión de Delphi estás usando? Es que no encuentro la propiedad ValueFromIndex y hablas de CheckList en lugar de CheckListBox

Saludos

[[Lepe]]

darkphantom no tengas miedo a explicar desde un principio lo que quieres hacer, porque aqui no se cobra por palabras, hombre.

hablas de un CheckListBox, pero no es lo mismo seleccionar que marcar, se permiten ambas cosas.

"seleccionar" es hacer clic en un elemento de lista y que quede con fondo azul (seleccionado)

"marcar" es poner la marca de verificación a su casilla correspondiente.

¿qué quieres, seleccionar o marcar?

Por otra parte, cuando obtienes "uadrado" es porque accedes incorrectamente a los items.

No uses las propiedades Values, Sections, ValueFromIndex, etc, ya que eso pertenece al TStrings, y está pensado para archivos ini donde guardas un par de valores al estilo:

Nombre=Pepe

Nombre es lo que se llama "llave" (key) y Pepe es lo que se llama el valor (Value), de tal forma que ambos estan emparejados. Cuando accedes con la propiedad Values, internamente delphi cree que tiene el símbolo igual "=" a su izquierda, por eso te devuelve una letra menos.

Para rescatar un valor, usa esto:

Código Delphi [-]
with Checklistbox do
 if itemindex <> -1 then
    ShowMessage(items[itemindex]);

Por eso, lo mismo de antes, explica qué quieres hacer. Además en principio, se resuelve una duda por cada hilo; si empezamos a hablar de 3 temas distintos en un mismo hilo se puede formar la gorda .



Saludos