¿como activar un boton mediante validacion de edits?

[soma25]

hola es la primera vez que entro al foro,y mi pregunta es:


cual es el codigo para hacer que un boton se actve mediante los edits?

es decir, tengo 5 edits y un boton para guardar la informacion, lo que quiero que haga es que cuando este llenando los casillas de texto no se active el boton hasta que no haya llegado al 5 edits, y que se desactive cuando yo borre todas las casillas?

se los agradeceria eternamente

atte

soma25

[epuigdef]

Utiliza el evento onchange de cada uno de los edits para controlar que estén informados y desde ahí habilitar el botón

En este evento controlas la longitud de los edits con length(Edit1.text)

Edu

[ContraVeneno]

o puedes programar el evento para un solo edit y luego apuntar los eventos de los otros edits a ese qu eya tienes programado.

Es decir, no tienes que programar 5 veces lo mismo, utilizando el parámetro sender de la función onchange puedes utilizar el evento de un edit para los restantes.

[soma25]

se mas o menos como va eso, pero me podrian dar un pequeño ejemplo del codigo para poder hacerlo?

gracias

atte

soma25

[epuigdef]

Más o menos sería así:

Código Delphi [-]
TForm1.OnEdit1Change(....)
begin
  if (length(Edit1.text) > 0) and 
     (length(Edit2.text) > 0) and 
     (length(Edit3.text) > 0) and 
     (length(Edit4.text) > 0) and 
     (length(Edit5.text) > 0) then
        Button1.Enabled := true;
  else
        Button1.enabled := false;

Y, como decía Contraveneno, apuntas el onChange de los 5 edits a este procedimiento

Un saludo

Edu

[ContraVeneno]

No, no, no... yo me refería a que usaras el parámetro "Sender"

Código Delphi [-]
TForm1.OnEdit1Change(Sender: TObject);
begin
  if (length((Sender as TEdit).Text) > 0) then
        Button1.Enabled := true;
  else
        Button1.enabled := false;

[roman]

No funcionaría porque necesariamente hay que verificar todos los controles en cada cambio. Al menos, según entiendo, el botón debe habiilitarse cuando todos los controles contengan algo. Usando el Sender, se habilitaría apenas se escriba algo en el primero.

// Saludos

[soma25]

Originally Posted by epuigdef

Más o menos sería así:


Código Delphi [-]
TForm1.OnEdit1Change(....)
begin
if (length(Edit1.text) > 0) and
(length(Edit2.text) > 0) and
(length(Edit3.text) > 0) and
(length(Edit4.text) > 0) and
(length(Edit5.text) > 0) then
Button1.Enabled := true;
else
Button1.enabled := false;






Y, como decía Contraveneno, apuntas el onChange de los 5 edits a este procedimiento

Un saludo

Edu

gracias por el codigo me sirvio de mucho

atte

soma25