Cambiar todas las propiedades de todos los forms
 

Hola.
Hace poco tuve la necesidad de cambiar una propiedad de todos los componentes de una aplicación en todos los formularios pero por código. El código fuente es de Free Pascal / Lazarus pero si mal no recuerdo se hacía de forma idéntica en Delphi. Se ejecuta al iniciar la aplicación...¿ cuántas veces al desarrolllar nos hemos olvidado un control con pestañas en una posición que no es la primer pestaña ? Bueno, para eso escribí este código.

Código Delphi [-]
Var
  formulario: Tform;
  f,c: integer; // Contadores de forms y sus componentes
Begin
  For F := 0 To Application.ComponentCount -1 Do
    If Application.Components[F] Is TForm Then
    Begin
      Formulario := TForm(Application.Components[F]);
      For C := 0 To Formulario.ComponentCount -1 Do
      Begin
        If Formulario.Components[C] Is TRxDBLookupCombo Then
        Begin
          TRxDBLookupCombo(Formulario.Components[C]).AutoSize := False;  // Cambiar dos propiedades en todos los componentes de la clase TRxDBLookupCombo
          TRxDBLookupCombo(Formulario.Components[C]).Height := 21;
        End;
        If Formulario.Components[C] Is TPageControl Then
          TPageControl(Formulario.Components[C]).PageIndex := 0;            // Por defecto visualizar siempre la primer pestaña
      End; 
End;

Me gusta se agradece
Saludos...

gracias por el aporte

Saludos

^\||/^\||/^\||/

Otra formas de cambiar las propiedades de los formularios de forma masiva.
 

Tambien se puede utilizar una utilidad [ Property Corrector ] que existe en la herramienta
CnPack. Buscar en Google.
la cual permite realizar cambios de forma masiva sobre las propiedades
de los componentes de todos los formularios de la aplicación.

Las CnPack es un conjunto de utilidades que extiende las posibilidades del editor de programación de DELPHI
Y es Free...

Saludos
Fernando Bernabeu
Telura Technology, S.L.

Es que uso Lazarus. Y CnPack no existe para Lazarus, sólo para Delphi.