Código Delphi [-] procedure TForm1.FormCreate(Sender: TObject); var Check: TcheckBox; I: Integer; begin for I := 0 to ComponentCount - 1 do if Components[i] is TCheckBox then begin Check := Components[i] as TCheckBox; if Check.Checked then // codigo trabajo end end;
procedure TForm1.FormCreate(Sender: TObject); var Check: TcheckBox; I: Integer; begin for I := 0 to ComponentCount - 1 do if Components[i] is TCheckBox then begin Check := Components[i] as TCheckBox; if Check.Checked then // codigo trabajo end end;