@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
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
-
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
!
--- Em sex, 18/9/09, Jose Newton Araujo jose.new...@jnewton.com.br escreveu:
De: Jose Newton Araujo jose.new...@jnewton.com.br
Assunto: [delphi-br] Contagem de Componentes
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 18 de Setembro de 2009, 10:49
Senhores
Muito obrigado.Resolvido
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Wilson, Stephen
Enviada em: sexta-feira, 18 de setembro de 2009 11:22
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Contagem de Componentes
Ola Jose
procedure
15:22
To: 'delphi-br@yahoogrupos.com.br
mailto:%27delphi-br%40yahoogrupos.com.br'
Subject: RE: [delphi-br] Contagem de Componentes
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
Marcelo Luiz Onhate escreveu:
Assim não precisa nem verifica o aowner e não passa TODOS os componentes
do formulário.
Só troca o CHKGROPU pelo teu GroupBox.
var c,i: integer;
begin
c:= 0;
for i:= 0 to CHKGROUP.ComponentCount-1 do
if (CHKGROUP.Components[i] is TCheckbox) and
7 matches
Mail list logo