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
> TCheckBox(CHKGROUP.Components[i]).Checked then
> Inc(c);
> ShowMessage(IntToStr(c));
> end;
No .dfm, dois checkbox's form e 2 no groupbox, mas não precisa contar os
4 ...:
-------
object Form1: TForm1
...
object CheckBox1: TCheckBox
end
object CheckBox2: TCheckBox
end
object GroupBox1: TGroupBox
object CheckBox3: TCheckBox
end
object CheckBox4: TCheckBox
end
end
...
end
-------
... então seria algo tipo:
-------
var
VCheckedCheckBox, I: Integer;
begin
VCheckedCheckBox := 0;
for I := 0 to Pred(GroupBox1.ControlCount) do
if TCheckBox(GroupBox1.Controls[I]).Checked then
Inc(VCheckedCheckBox);
ShowMessage(IntToStr(VCheckedCheckBox));
end;
-------
Boa sorte.
--
Silvio Clecio.
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
