ChecklistBo não consigo colocar tudo checkd

Delphi

27/07/2005

Estou fazendo assim, mas não acontece nada.

var i:interger
begin

for i:=0 to rxCheckListBox1.Items.Count-1 do
if rxCheckListBox1.Checked[i] then :cry:


Rjcerri

Rjcerri

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

27/07/2005

Não entendi muito bem a sua dúvida, mas se vc quiser marcar TODOS os items como Checked=True, tente o seguinte:

var
  i: Integer;
begin
  for i := 0 to CheckListBox1.Items.Count-1 do
    CheckListBox1.Checked[i] := True;
end;


Agora, se for pra verificar quais estão Checked=True, faça o seguinte:

var
i: Integer;
begin
  for i := 0 to CheckListBox1.Items.Count-1 do
    if (CheckListBox1.Checked[i]) then
    begin
      // Insira seu comando aqui !!!
    end;

end;



GOSTEI 0
Rjcerri

Rjcerri

27/07/2005

É isso mesmo, obrigado.


GOSTEI 0
POSTAR