Ver Mensaje Individual
  #1  
Antiguo 02-07-2016
Avatar de rretamar
[rretamar] rretamar is offline
Miembro Premium
 
Registrado: ago 2006
Ubicación: San Francisco, Córdoba, Argentina
Posts: 1.168
Reputación: 20
rretamar Va camino a la famarretamar Va camino a la fama
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;
__________________
Lazarus Codetyphon : Desarrollo de aplicaciones Object Pascal, libre y multiplataforma.

Última edición por rretamar fecha: 02-07-2016 a las 01:50:08.
Responder Con Cita