Verificar TcheckBox checados

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

Respostas

08/12/2005

Marcio.theis

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&93;.ClassType = TCheckBox then
        if (Self.Components&91;x&93; as TCheckBox).Checked then
            if (Self.Components&91;x&93; 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;



Responder Citar

10/12/2005

Vispo

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

Abraço!


Responder Citar