Ver Mensaje Individual
  #5  
Antiguo 23-09-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Metes los objetos en una lista (esto seria lo que vos llamas agrupar) cuando los vas creando; o si los creaste todos en tiempo de diseño, al crear tu Form (por ejemplo en el evento FormCreate) los agregas a dicha lista

Luego, recorres la lista, para cada elemento de la lista, modificas la propiedad con el valor correspondiente

Ej:

Código Delphi [-]
procedure TForm1.Edits_SetEnabled(const Value: Boolean);
var
  I: Integer;
  Each: TEdit;
begin
  for I := 0 to EditList.Count - 1 do
  begin
    Each := TEdit(EditList[i]);
    Each.Enabled := Value;
  end;
end;

Donde EditList seria una variable privada de tu Form de tipo TList, que si no me falla la memoria, en Delphi 7 esta definida en la unidad Classes

Aca hay un poco de informacion y ejemplos de uso de la clase TList

El codigo anterior se puede mejorar y escribir mas generico de manera tal que puedas pasar la propiedad a modificar dinamicamente, es decir, podrias escribir este tipo de cosas:

Código Delphi [-]
  ...
  Edits_SetValue('Enabled', True);

Pero tendrias que hacer uso de RTTI para buscar la propiedad y asignar el valor correspondiente

Saludos
Responder Con Cita