Verificar TcheckBox checados

08/12/2005

3

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!


Responder

Posts

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].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;



Responder

10/12/2005

Vispo

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

Abraço!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira