Probé como vos me indicaste anda pero el tema esta cuando quiero modificar un registro donde el componente DBCheckBox está tildado, me da error mi aplicacion y el compilador me señala el evento OnClick de éste componente.Es decir aca:
Código:
procedure TForm10.BajaClick(Sender: TObject);
begin
If Form10.Baja.Checked=True Then
begin
Form10.Label10.Enabled:=True;
Form10.DBEdit9.Enabled:=True;
Form10.Label11.Enabled:=True;
Form10.DBComboBox1.Enabled:=True;
end
Else
If Form10.Baja.Checked=False Then
begin
Form10.Label10.Enabled:=False;
Form10.DBEdit9.Enabled:=False;
Form10.Label11.Enabled:=False;
Form10.DBComboBox1.Enabled:=False;
end;
end;
El boton Modificar ejecuta el siguiente procediemineto:
Código:
procedure TForm7.ModificarClick(Sender: TObject);
begin
Form10:=TForm10.Create(Self);
ModeloDatos.TblMueble.Edit;
end;
Gracias.