Verificar TcheckBox checados

Delphi

08/12/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!


Vispo

Vispo

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

08/12/2005

Pode ser feito desta forma:


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;



GOSTEI 0
Vispo

Vispo

08/12/2005

Isso ai...valeu mesmo [b:5022eaa2a5]/]/]@t[/b:5022eaa2a5]

Abraço!


GOSTEI 0
POSTAR