FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola Como estan Todos? Validar Campos
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........
__________________
Edwin Simon la Tierra del Merengure Republica Dominicana |
#2
|
||||
|
||||
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. Última edición por marcoszorrilla fecha: 03-09-2003 a las 19:56:28. |
|
|
|