Array
(
)

Verificar TcheckBox checados

Vispo
   - 08 dez 2005

Moçada, eu tenho um GroupBox e dentro dele vários CheckBox, existe uma maneira de varrer esse GroupBox e verificar se todos estão selecionados ou se nenhum está selecionado?

Abraço!


Marcio.theis
   - 08 dez 2005

Pode ser feito desta forma:


#Código

procedure TForm1.BitBtn1Click(Sender: TObject);
var
x: integer;
algumMarcado: boolean;
begin
algumMarcado:=False;
x:=0;
while x <= Self.ComponentCount - 1 do
begin
if Self.Components[x].ClassType = TCheckBox then
if (Self.Components[x] as TCheckBox).Checked then
if (Self.Components[x] as TCheckBox).Parent = GroupBox1 then
begin
algumMarcado:=True;
x:=Self.ComponentCount;
end;
Inc(x);
end;
if algumMarcado then
Application.MessageBox(´Tem CheckBox marcado´,´Verifica´,MB_OK or MB_ICONINFORMATION)
else
Application.MessageBox(´Não tem CheckBox marcado´,´Verifica´,MB_OK or MB_ICONINFORMATION)
end;



Vispo
   - 10 dez 2005

Isso ai...valeu mesmo /]/]@t

Abraço!