Marcar todos os DBCheckBox

Question

Como faria para marcar todos os checkbox de um formul�rio?sem precisar digitar um por um e pedir para ficarem marcados?...

Marcio.theis · Answer

Para marcar todos os CheckBox voc� pode fazer assim:

procedure TForm1.MarcaTodosCheckBox;
var
    n: integer;
begin
n:=0;
while n <= (ComponentCount - 1) do
    begin
    if (Components[n].ClassType = TCheckBox) then
        (Components[n] as TCheckBox).Checked:=True;
    Inc(n);
    end;
end;

Douglasf · Answer

Muito obrigado......

F�rum Marcar todos os DBCheckBox #280113