Buscar

Verificar se o CheckBox do listView foi marcado

Código

{Coloque 1 listview (palheta Win32)
Na propriedade ViewStyle = vsReport, columns adicione 4 colunas}


var
  Lista_Eventos   : TListItem;
  x : shortint;
begin
  x := 1;
  while x <= 3 do
   begin
     Lista_Eventos := ListView1.Items.Add;
     ListView1.Columns.Items[0].Caption := '';
     ListView1.Columns.Items[1].Caption := 'col 1';
     ListView1.Columns.Items[2].Caption := 'col 2';
     ListView1.Columns.Items[3].Caption := 'col 3';
     Lista_Eventos.Caption := ' ';
     Lista_Eventos.SubItems.Add('Coluna 1');
     Lista_Eventos.SubItems.Add('Coluna 2');
     Lista_Eventos.SubItems.Add('Coluna 3');
     inc(x);
   end;
end;

procedure TCopiaArqHotBD.Button1Click(Sender: TObject);
var
  i : byte;
  j : byte;
begin
  i := 0;
  j := 0;
  while i <= ListView1.Items.Count - 1 do
   begin
      if ListView1.Items.Item[i].Checked then
         inc(j);
      inc(i);
   end;
  showmessage(inttostr(j));
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 19/04/10
Por: Fgiro
Visualizada: 5863 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009