Agrupar Objetos y Modificar Propiedades

[[Luis M.]]

Hola.
Agruparlos no lo se, pero podrías hacer algo así para tratar todos los DBEdits

Código Delphi [-]
 for I:= 0 to ControlCount - 1 do
    begin
      if Controls[i] is TDBEdit then
      begin
        TDBEdit(Controls[i]).ReadOnly := True;
        TDBEdit(Controls[i]).TabStop := False;
        TDBEdit(Controls[i]).Color := clMoneyGreen;
        TDBEdit(Controls[i]).StyleElements := [seFont,seBorder];
      end;
    end;

[sa_pirata]

Empezado por Luis M.

Hola.
Agruparlos no lo se, pero podrías hacer algo así para tratar todos los DBEdits

Código Delphi [-]
 for I:= 0 to ControlCount - 1 do
    begin
      if Controls[i] is TDBEdit then
      begin
        TDBEdit(Controls[i]).ReadOnly := True;
        TDBEdit(Controls[i]).TabStop := False;
        TDBEdit(Controls[i]).Color := clMoneyGreen;
        TDBEdit(Controls[i]).StyleElements := [seFont,seBorder];
      end;
    end;

Muchas, gracias, voy a probar y aviso a ver que tal sale todo!

[sa_pirata]

Empezado por Luis M.

Hola.
Agruparlos no lo se, pero podrías hacer algo así para tratar todos los DBEdits

Código Delphi [-]
 for I:= 0 to ControlCount - 1 do
    begin
      if Controls[i] is TDBEdit then
      begin
        TDBEdit(Controls[i]).ReadOnly := True;
        TDBEdit(Controls[i]).TabStop := False;
        TDBEdit(Controls[i]).Color := clMoneyGreen;
        TDBEdit(Controls[i]).StyleElements := [seFont,seBorder];
      end;
    end;

Me funcionó mejor que perfecto.
Muchisimas gracias Luis M.
Saludos!

[[AgustinOrtu]]

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