Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Mostrar en una label un item de un ChekListBox (https://www.clubdelphi.com/foros/showthread.php?t=62977)

cslbcn 23-01-2009 17:32:09

Mostrar en una label un item de un ChekListBox
 
Hola a todos.
Mi pregunta es la del asunto.

Tengo 2 CheckListBox (CLB). Uno llamado (CLBNombre) y el otro (CLBID).
Cuando checkeo un item del CLBNombre se me selecciona el mismo item de CLBID que le corresponde. Lo hago de esta manera:

Código Delphi [-]
if CLBID.checked[CLBNombre.ItemIndex] = true then
begin
    CLBID.checked[CLBNombre.ItemIndex] := false;    
end
else
begin
    CLBID.checked[CLBNombre.ItemIndex] := true;    
end;

Hasta aquí correcto. Ahora quiero que cuando checkee un item o lo des-checkee en CLBNombre, en una label llamada (Label), me muestre el item que le corresponde en el CLBID. Sería algo asi:

Código Delphi [-]
if CLBID.checked[CLBNombre.ItemIndex] = true then
begin
    CLBID.checked[CLBNombre.ItemIndex] := false;  
    Label.caption := ??????
end
else
begin
    CLBID.checked[CLBNombre.ItemIndex] := true;
    Label.caption := ??????
end;

Qué va en esos interrogantes?? No me saleeeee. Ayuda plz!

roman 23-01-2009 17:44:02

Pues debe ser algo como:

Código Delphi [-]
Label1.Caption := CLBID.Items[CLBNombre.ItemIndex];

Por otra parte, tu código lo puedes escribir más conciso, sin los condicionales:

Código Delphi [-]
CLBID.checked[CLBNombre.ItemIndex] := not CLBID.checked[CLBNombre.ItemIndex];

// Saludos

cslbcn 23-01-2009 18:07:38

Muchas gracias roman, funciona de maravilla :)


La franja horaria es GMT +2. Ahora son las 23:27:45.

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