Código Delphi [-] var b:boolean; for i := 0 to (Self.ComponentCount - 1) do begin if Self.Components[i] is TDBChecBox then begin if TDBChecBox(Self.Components[i]).Checked then b := true; end; end; if b then showmesage('Algo');
var b:boolean; for i := 0 to (Self.ComponentCount - 1) do begin if Self.Components[i] is TDBChecBox then begin if TDBChecBox(Self.Components[i]).Checked then b := true; end; end; if b then showmesage('Algo');