Valeu jovem. Muito Obrigado. Jose Newton
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de simoesluciano Enviada em: sexta-feira, 18 de setembro de 2009 11:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Contagem de Componentes Divirta-se: procedure TForm1.Button1Click(Sender: TObject); var vconta, I: Integer; begin vconta := 0; for I := 0 to ComponentCount - 1 do begin if (Components[i] is TCheckBox) and ((Components[i] as TCheckBox).Parent = GroupBox1 ) and (Components[i] as TCheckBox).Checked then Inc(vConta); end; showmessage(inttostr(vconta)); end; Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Jose Newton Araujo" <jose.new...@...> escreveu > > Senhores: > > Estando com um pepino para resolver, preciso de uma colher de chá dos > companheiros. > > Tenho um grupo Box contendo 7 CheckBox(s). Preciso saber quantos estão > Checked(s). > > E agora? > > Sds corinthianas a todos, > > Jose Newton > > > [As partes desta mensagem que não continham texto foram removidas]