como validar un boton mediante los edits?
 

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?

si alguien me pudiera mostrar como va el codigo se lo agradecere etertnamenye

atte

soma25

Hola,

Yo utilizaría un componente "TActionList", concretamente prepararía una acción que asociaría con el botón de marras mediante su propiedad "Action". En el evento "OnExecute" de dicha acción haría lo que tuviera que hacerse, y, aprovechando el evento "OnUpdate" de la acción, haría algo parecido a esto:

Código Delphi [-]
procedure TForm1.Action1Update(Sender: TObject);
begin
  { Habilitamos o deshabilitamos la acción
    y con ello el botón que tenga la acción
  }
  Action1.Enabled := ValidaEdits;
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  { Se ejecuta al hacer clic el botón
    al que se le asignó esta acción
  }
  ShowMessage('Pudiste pulsar el botón...');
end;

{ Valida que los "TEdits" del formulario
  no contengan únicamente cadenas vacías

  Se trata de un ejemplo, únicamente para
  mostrar cómo podemos utilizar el evento
  "OnUpdate" de las acciones.
}
function TForm1.ValidaEdits : boolean;
var
  i: integer;
begin
  Result := true;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TEdit) and (TEdit(Components[i]).Text = '') then
    begin
      Result := false;
      Exit;
    end;
  end;
end;

... o algo parecido. En definitiva, utilizaría el evento "OnUpdate" para validar los "TEdits" de forma que habilitara o no la acción del botón (y con ello el botón mismo).

Adjunto el proyecto de ejemplo que incluye el código de más arriba para que pueda verse "el asunto" funcionando.

soma25: Con perdón de mi colega David, voy a cerrar este hilo. Ya tenías otro con la misma pregunta y ya te habían contestado. Es bastante descortés para con quienes se tomaron la molestia de hacerlo, ignorarlos y abrir uno nuevo.

// Saludos