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, "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
>
>
>
