Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Cambiar todas las propiedades de todos los forms (https://www.clubdelphi.com/foros/showthread.php?t=90522)

rretamar 02-07-2016 01:45:42

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;

BDWONG 02-07-2016 03:01:46

Me gusta se agradece
Saludos...

ElKurgan 03-07-2016 13:37:30

gracias por el aporte

Saludos

Casimiro Notevi 03-07-2016 17:02:51

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

fbp 13-01-2017 17:14:39

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.

rretamar 29-01-2017 07:37:09

Cita:

Empezado por fbp (Mensaje 512338)
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.


La franja horaria es GMT +2. Ahora son las 13:21:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi