Código Delphi [-] procedure TFrmImagen.DBCheckBox1Click(Sender: TObject); begin if dbcheckbox1.Checked then begin adoquery1.fieldbyname('dbchecbox1.caption').asstring:=edit1.text; end; end;
procedure TFrmImagen.DBCheckBox1Click(Sender: TObject); begin if dbcheckbox1.Checked then begin adoquery1.fieldbyname('dbchecbox1.caption').asstring:=edit1.text; end; end;