Manejo de Varios controles

[ecfisa]

Hola y bienvenido a Club Delphi

Por favor no olvides revisar nuestra guía de estilo.

Un ejemplo simple que hace uso de tres grupos de cinco Edits:

Código Delphi [-]
...
var
  grupo1 : TPoint = (X:1;Y:5);     // Edit1 ~ Edit5
  grupo2 : TPoint = (X:6;Y:10);    // Edit6 ~ Edit10
  grupo3 : TPoint = (X:11; Y:15);  // Edi11 ~ Edit15

// Verifica cadena vacía en Edits
function TForm1.CheckEditContents(const DH: TPoint):Boolean;
var
  i: Integer;
begin
  Result := True;
  for i := DH.X to DH.Y do
  begin
    if (TEdit(FindComponent('Edit'+IntToStr(i))).Text = '') then
    begin
      Result := False;
      Exit;
    end;
  end;
end;

// Activa o desactiva grupo de Edits
procedure TForm1.EnableDisableEdits(const DH: TPoint; Activo: Boolean);
var
  i: Integer;
begin
  for i := DH.X to DH.Y do
    TEdit(FindComponent('Edit'+IntToStr(i))).Enabled := Activo;
end;

// Activa~Desactiva grupo2 según grupo1
procedure TForm1.btnGrupo1Click(Sender: TObject);
begin
  EnableDisableEdits(grupo2, CheckEditContents(grupo1));
end;

// Activa~Desactiva grupo3 según grupo2
procedure TForm1.btnGrupo2Click(Sender: TObject);
begin
  EnableDisableEdits(grupo3, CheckEditContents(grupo2));
end;

// Activa~Desactiva grupo1 según grupo3
procedure TForm1.btnGrupo3Click(Sender: TObject);
begin
  EnableDisableEdits(grupo1, CheckEditContents(grupo3));
end;
...

Saludos