¿como activar un boton mediante validacion de edits?

[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]

Empezado por 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