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; 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; TRxDBLookupCombo(Formulario.Components[C]).Height := 21;
End;
If Formulario.Components[C] Is TPageControl Then
TPageControl(Formulario.Components[C]).PageIndex := 0; End;
End;