PDA

Ver la Versión Completa : Hola Como estan Todos? Validar Campos


edwin1
03-09-2003, 17:46:32
Saludo!!!!!!!!!!!!!
Tengo un Form, con un DBRadioGroup, con dos variable Solicitado y Aprobado, quiero que cuando el DB RadioGroup, este en el Estado de Solicitado me permita llenar los Campos del Form, hasta este porceso lo hace muy bien, pero cuando esta en aprobado me ponga los datos de solo lectura o false.

los hice de esta forma
if DBRadioGroup2.ItemIndex = 0 then begin
rb_tipo_documentos.Enabled := True;
DBEdit1.ReadOnly := True;
DBEdit2.ReadOnly := True;
DBEdit3.ReadOnly := True;
DBEdit4.ReadOnly := True;
DBEdit5.ReadOnly := True;
DBEdit7.ReadOnly := True;
DBComboBox1.Enabled := True;
DBLookupComboBox1.Enabled := True;
DBLookupComboBox2.Enabled := True;
DBEdit9.Enabled := True;
DBEdit10.Enabled := True;
end
else
// 1 : begin
if DBRadioGroup2.ItemIndex = 1 then begin
rb_tipo_documentos.Enabled := False;
DBEdit1.ReadOnly := False;
DBEdit2.ReadOnly := False;
DBEdit3.ReadOnly := False;
DBEdit4.ReadOnly := False;
DBEdit5.ReadOnly := False;
DBEdit7.ReadOnly := False;
DBComboBox1.Enabled := False;
DBLookupComboBox1.Enabled := False;
DBLookupComboBox2.Enabled := False;
DBEdit9.Enabled := False;
DBEdit10.Enabled := False;

Mil gracias por Prestarme un poco de tu tiempo y pasa un Feliz resto del Día........

marcoszorrilla
03-09-2003, 19:54:11
Tienes una propiedad del objeto DataSource que te puede resolver el problema con mucha más facilidad, a modo de ejemplo "AutoEdit"

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
datasource1.AutoEdit:= not datasource1.AutoEdit
end;

Otra solución puede ser poner los campos encima de un panel y hacer este Enable = False cuando convenga de esta forma tampoco se podrán modificar los campos.

Un Saludo.