Saludo para todos

[edwin1]

Hola tengo un problemita que no se como resorber, estoy haciendo un programa en el cual tengo un Form, el cual puedo digitar tres documento diferentes, tambien tengo un DBRadioGroup con dos campos 1-Solicitado y 2-Aprobado.

El programa hace los siguiente:
Cuando precioes el Boton de Insertar yo puedo seleccionar un tipo de documento y el el DBRadrioGroup hago un click el solicitado y luego imprimo el documento, eso esta muy bien.

Pero cuando el documento esta aprobado lo que quiero es cuando preciones el boton de modificar y haga un click en aprobado no me permita modificar los cambo esta es la rutina que uso.

if DBRadioGroup2.ItemIndex = 0 then begin
rb_tipo_documentos.Enabled := True;
DBEdit1.ReadOnly := True;
DBEdit2.ReadOnly := True;
DBEdit4.ReadOnly := True;
DBEdit8.ReadOnly := True;
DBEdit11.ReadOnly := True;
DBEdit3.ReadOnly := True;
DBEdit5.ReadOnly := True;
DBEdit7.ReadOnly := True;
DBEdit6.ReadOnly := True;
DBComboBox1.Enabled := True;
DBLookupComboBox1.Enabled := True;
DBLookupComboBox2.Enabled := True;
DBEdit9.Enabled := True;
DBEdit10.Enabled := True;

end
else
if DBRadioGroup2.ItemIndex = 1 then begin
rb_tipo_documentos.Enabled := False;
DBEdit1.ReadOnly := False;
DBEdit2.ReadOnly := False;
DBEdit4.ReadOnly := False;
DBEdit8.ReadOnly := False;
DBEdit11.ReadOnly := False;
DBEdit3.ReadOnly := False;
DBEdit5.ReadOnly := False;
DBEdit7.ReadOnly := False;
DBEdit6.ReadOnly := False;
DBComboBox1.Enabled := False;
DBLookupComboBox1.Enabled := False;
DBLookupComboBox2.Enabled := False;
DBEdit9.Enabled := False;
DBEdit10.Enabled := False;

mil gracias para dotos
Gracias Roman por el comentario

[roman]

edwin1

Muchos de tus mensajes tienen un saludo en el Asunto lo cual es cortés y estoy seguro que muy bien intencionado.

No obstante, te recomiendo pasar el saludo al cuerpo del mensaje y escribir un Asunto más descriptivo para que los demás usuarios sepan de qué se trata.

Esto aumentará las probabiliades de obtener respuesta a tu problema.

// Saludos

[marcoszorrilla]

No sé si esto lo que preguntas, pero bueno:

Pon los campos sobre un panel y el código te quedará muchos más simple.

Si pulsa en la opción adecuada:

MiPanel.Enabled:=False;
y sino
MiPanel.Enabled:=True;

De esta manera te ahorras todo el código para inhabilitar, la modificación de los campos.

Otra solución es poner la propiedad Autoedit del Dataset a False, si es que quieres inhabilitar todos los campos.

Un Saludo.

[jachguate]

Que tal Edwin.

además de lo apuntado por roman.... quiero recomendarte el uso de la etiqueta [ CODE ] para que los trozos de código que publicas sean mas legibles...

Mirá vos mismo la diferencia:

Posteado originalmente por edwin1
if DBRadioGroup2.ItemIndex = 0 then begin
rb_tipo_documentos.Enabled := True;
DBEdit1.ReadOnly := True;
DBEdit2.ReadOnly := True;
etc, etc.

Versus:

if DBRadioGroup2.ItemIndex = 0 then 
begin
  rb_tipo_documentos.Enabled := True;
  DBEdit1.ReadOnly           := True;
  DBEdit2.ReadOnly           := True;
End
Else Begin
  // Cualquier otra cosa
End;
etc, etc.

Hasta luego

[edwin1]

Mucha gracias por la sugerencia, le agradesco mucho.
voy a usar los ejemplos que me enviaron.