Ola Jose procedure TForm1.Button1Click(Sender: TObject); var c,i: integer; begin c:= 0; for i:= 0 to ComponentCount-1 do if (Components[i] is TCheckbox) and TCheckBox(Components[i]).Checked then inc(c); showmessage(inttostr(c)); end;
Att Steve -----Original Message----- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of Jose Newton Araujo Sent: 18 September 2009 14:49 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Contagem de Componentes 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 *************************************************************************** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***************************************************************************