Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   tchecklistbox (https://www.clubdelphi.com/foros/showthread.php?t=32127)

argel 26-05-2006 21:08:36

tchecklistbox
 
Hola a todos:)

Bueno mi pregunta es la siguiente, ojalá puedan ayudarme.

Tengo un checklistbox al cual contiene ya items que se le asignaron en diseño, pero le puedo añadir items en tiempo de ejecución, pero lo que no he podido hacer es que el nuevo elemento añadido lo envie a uno anterior.

Digamos tengo el checklistbox asi
uno
dos
tres
cuatro

Ejecuto el programa y ahi decido añadir otro item..supongamos "hola"
entonces quiero que la lista quede asi

uno
dos
tres
hola
cuatro

bueno, espero me haya explicado.

Gracias por todo

roman 26-05-2006 21:14:40

Código Delphi [-]
CheckListBox1.Items.Insert(3, 'hola');

// Saludos

argel 26-05-2006 23:38:21

tchecklistbox
 
hola

Creo que no me explique bien, por la respuesta que me das, no quiero insertar siempre en nuevo elemento en la posición 3, digamos puedo tener 20 elementos e insertar el nuevo elemento en la posición 19. Ademas no tengo una cantidad de items definidas, puedo tener 17, 18, 20, 25, pero a lo que voy es que quiero insertar el proximo elemento en una posición anterior al último.

Gracias

roman 26-05-2006 23:47:15

Insert te sirve para agregar un elemento en la posición que tú quieras. Ya sólo es cuestión de que le eches un poco de cabeza al asunto.

// Saludos

argel 27-05-2006 00:05:15

checklistbox
 
hola!!
Si ya muchas gracias, tú idea me funciono y ya consegui hacer lo que queria.

Muchas gracias por todo.
Saluditos!!

argel 27-05-2006 00:08:06

cheklistbox
 
lo resolvi de esta manera

procedure TForm1.Button1Click(Sender: TObject);
var
cadena:string;
n:integer;
begin
n := checkListBox1.Count-1;
cadena:=edit1.text;
CheckListBox1.Items.Insert(n, cadena);
end;
end


La franja horaria es GMT +2. Ahora son las 19:49:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi